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

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.

Варвара Шляхтова 2019-02-21 08:58:47

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

Виталик Шешенин 2019-02-21 09:05:44

Убрал

Regina Objazova 2019-02-21 09:11:29

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

Амелия 2019-02-21 09:13:45

Ага, и перенос строчки лишний - с ним 14 строк выходит...

Антон Сфаэлло 2019-02-21 09:15:19

)))

Борис Крисанов · Answer 2 · 2019-02-21 08:55:49+3:00

Борис Крисанов 2019-02-21 08:55:49

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

Иванекин Сергей 2019-02-21 09:17:05

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

Ростованова Маша 2019-02-21 09:25:52

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

Максим Мигунов 2019-02-21 09:27:38

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

О проекте

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

Добро пожаловать!