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

Question

Валейка

13 апреля, 17:57

+3

Ответы (2)

Знаете ответ?

Милуша · Answer 1

Program s;

var i : integer;

begin

readln (i)

if frac (sqrt (i)) = 0 then write ('Yes.')

else write ('No.') ;

end.

Карина · Answer 2

Var a:real;

begin readln (a) ;

if frac (sqrt (a)) = 0 then write ('Да')

else write ('Нет') ;

end.