Дано натуральное число. Проверить, является ли оно четвертой степенью некоторого...

Question

Дано натуральное число. Проверить, является ли оно четвертой степенью некоторого натурального числа. Язык программирования: Паскаль

Answer 1

Var a:integer;
begin;
readln(a);
if frac(sqrt(sqrt(a)))=0 then writeln('Да') else writeln('Нет');
end.