Question

Составить программу, позволяющую определить, имеет ли число, введённое с клавиатуры целый корень( через оператор if)

Answer 1

var a:real;
begin readln(a);
 if frac(sqrt(a))=0 then write('Да')
                    else write('Нет');
end.

Answer 2

program s;
 var i : integer;
begin
 readln(i)
 if frac(sqrt(i)) = 0 then write('Yes.')
 else write ('No.');
end.