Question

Напишите программму(Паскаль), которая возводит данное натуральное число x в натуральную степень y. (Используйте цикл со счетчиком for...to...do)

Answer 1

var

x,y,i,osn: Integer;

begin

Readln(x, y);

osn:= x; // Переменная для основания

for i:= 1 to y-1 do

x *= osn;

Writeln(x);

end.

Answer 2

Ответ:

Вот:

Pascal

var

 a,n,i:integer;

begin

 write('Введите а и п: ');

 read(a,n);

 writeln;

 for i:=2 to n do

   a:=a*a;

 write('Число в степени ',n,' равно ',a);

end.

Объяснение:

Answer 3

Конечно! Вот пример программы на языке Паскаль, которая возводит натуральное число x в натуральную степень y с использованием цикла for:

pascalCopy code
program Exponentiation;

var
  x, y, result: integer;
  i: integer;

begin
  writeln('Введите число x:');
  readln(x);
  
  writeln('Введите степень y:');
  readln(y);
  
  result := 1;
  
  for i := 1 to y do
  begin
    result := result * x;
  end;
  
  writeln('Результат: ', result);
  readln;
end.

Программа запрашивает у пользователя значения x (число, которое нужно возвести в степень) и y (степень, в которую нужно возвести число). Затем она использует цикл for для многократного умножения числа x на само себя y раз. Результат сохраняется в переменной result, которая выводится на экран.

Обратите внимание, что программа предполагает, что введенные значения x и y являются натуральными числами (целыми положительными числами).