Question

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

Answer 1

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

Answer 2

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

pascalCopy code
program CheckFourthPower;
var
  num, root: integer;
begin
  writeln('Введите натуральное число: ');
  readln(num);

  if num <= 0 then
    writeln('Число не является натуральным.')
  else
  begin
    root := round(sqrt(sqrt(num)));
    if power(root, 4) = num then
      writeln(num, ' является четвертой степенью числа ', root)
    else
      writeln(num, ' не является четвертой степенью натурального числа.');
  end;

  readln;
end.

Эта программа сначала запрашивает у пользователя натуральное число. Затем она вычисляет корень четвертой степени из этого числа и проверяет, является ли оно четвертой степенью некоторого натурального числа. Если число удовлетворяет этому условию, программа сообщает об этом, иначе она сообщает, что число не является четвертой степенью натурального числа.