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

Question

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

Comments

Язык?

---

Pascal

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.