Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составить программу печатающую зн ачение true если указанное высказывание является истинным, и false - в противном случае натуральное число N является точным квадратом

Ответ оставил Гость

Var n:integer;
b:boolean;
begin;
readln(n);
if frac(sqrt(n))=0 then b:=true else b:=false;
writeln(b);
end.