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

Question

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

Answer 1

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.

Comments

В каком Паскале Вы пишите, где нужна строчка "uses System.Numerics;" ?

---

Убрал

---

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

---

Ага, и перенос строки лишний - с ним 14 строк получается...

---

)))

Answer 2

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

Comments

Нужно перед циклом написать: res:=1;

---

А в цикле можно и так: for n:= 1 to n do

---

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