var i,r,x,y:integer; begin Write('Вычисление х в степени y, введите х,y: '); Readln(x,y); r:=x; for i:=2 to y do r:=r*x; Writeln('Результат: ',r) end.
Тестовый прогон: Вычисление х в степени y, введите х,y: 2 10 Результат: 1024
Вариант для любителей начинать циклы с единицы. var i,r,x,y:integer; begin Write('Вычисление х в степени y, введите х,y: '); Readln(x,y); r:=1; for i:=1 to y do r:=r*x; Writeln('Результат: ',r) end.
Answers & Comments
var
i,r,x,y:integer;
begin
Write('Вычисление х в степени y, введите х,y: ');
Readln(x,y);
r:=x;
for i:=2 to y do r:=r*x;
Writeln('Результат: ',r)
end.
Тестовый прогон:
Вычисление х в степени y, введите х,y: 2 10
Результат: 1024
Вариант для любителей начинать циклы с единицы.
var
i,r,x,y:integer;
begin
Write('Вычисление х в степени y, введите х,y: ');
Readln(x,y);
r:=1;
for i:=1 to y do r:=r*x;
Writeln('Результат: ',r)
end.