Вводится натуральное число. Определить, является ли оно пол- ным квадратом. Ответ выдать...

Question

Вводится натуральное число. Определить, является ли оно пол- ным квадратом. Ответ выдать в форме YES | NO.

Answer 1

Var 
a:real;
Begin 
write('Введите число '); 
Readln(a); 
if sqrt(a) = round(sqrt(a)) then write('YES') else write('NO');
End.