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

Question

Корнюха

11 февраля, 07:40

+4

Ответы (1)

Знаете ответ?

Леруня · Answer 1

Var a:integer;

begin;

readln (a) ;

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

end.