1. С клавиатуры вводится X и N. Составь алгоритм вычисления X в степени N. Напиш...

July 2022 2 1 Report

1. С клавиатуры вводится X и N. Составь алгоритм вычисления X в степени N. Напиши программу на Паскале

zewan4ik var
n, i, a: integer;
p: BigInteger;

begin
p := 1;
Writeln('Введите числа');
Write('a=');
Readln(a);
Write('n=');
Readln(n);
for i := 1 To n Do p := p * a;
writeln(p);
end.

0 votes Thanks 0

zewan4ik точно res присвоить 1 это важно. говорю ж с телефона писал :) забыл про нее

ShirokovP

Verified answer

Var
x, n, res : integer;
begin
res := 1;
readln(x);
readln(n);
for var i:=1 to n do res := res * x;
writeln(res);
end.

пишу с телефонв, не уверен, может быть в строке for... надо n-1 а не просто n

3 votes Thanks 2

ShirokovP Убрал

ShirokovP Без него работает=)

Answers & Comments

Verified answer

рекомендуемые вопросы

Helpful Links

Helpful Social