Как в паскале определить, целое число или нет?

Question

Как в паскале определить, целое число или нет?

Comments

В Паскале есть функция Frac(x), возвращающая дробную часть от х. Если она возвращает ноль, чисто целое.

Answer 1

Program n1;
var x,y:real;
begin  
readln(x);  
y:=round(x);  
if y=x then writeln('число не дробное')         
else writeln('число дробное');  
end.

Comments

а зачем тратим переменную на лишнее присвоение? х=round(x) проверить сразу не судьба?