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

Question

Валейка

18 октября, 13:22

+1

Ответы (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.