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

Question

Августа

16 апреля, 15:06

+4

Ответы (2)

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

Шарлотта · 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.