Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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