Вводится натуральное число. Определить, является ли оно пол- ным квадратом. Ответ выдать в форме YES | NO.
Const m : array[false..true] of String[3] = ( NO,YES);
Var n : Integer;
Begin
Readln(n);
Writeln(m[n=sqr(trunc(sqrt(n)))]);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
