Паскаль: «Введите с клавиатуры число x. Определите, является ли данное число дробным....

Question

Паскаль: «Введите с клавиатуры число x. Определите, является ли данное число дробным.
Пример ввода: 3.5
Пример вывода: Число дробное»

Answer 1

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