program PowerCalc; var X, N, Result, i: integer; begin write('Введите число X: '); readln(X); write('Введите степень N: '); readln(N); Result := 1; for i := 1 to N do begin Result := Result * X; end; writeln(X, ' в степени ', N, ' равно ', Result); end.
Программа на паскале:
program PowerCalc;var
X, N, Result, i: integer;
begin
write('Введите число X: ');
readln(X);
write('Введите степень N: ');
readln(N);
Result := 1;
for i := 1 to N do
begin
Result := Result * X;
end;
writeln(X, ' в степени ', N, ' равно ', Result);
end.