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

Question

Аполлос

15 июля, 19:58

+5

Ответы (1)

Знаете ответ на вопрос?

Вася · Answer 1

Var n:integer;

b:boolean;

begin;

readln (n) ;

if frac (sqrt (n)) = 0 then b:=true else b:=false;

writeln (b) ;

end.