светлана , ответ добавлен 18.05.2017 в 09:34

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

 0   

Полина , ответ добавлен 18.05.2017 в 09:22

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