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

Question

Геновефа

4 ноября, 22:41

+3

Ответы (1)

Знаете ответ на вопрос?

Филофей · Answer 1

Var a:integer;

begin;

readln (a) ;

if frac (sqrt (sqrt (a))) = 0 then writeln ('Да') else writeln ('Нет') ;

end.