Дано целое число а и натуральное число n. Найдите a^n. Программу напишите в Паскале через while или repeat.

1

Ответы и объяснения

2014-04-13T08:01:23+04:00
Program Program1;
var a, n, i, result: integer;
begin
result := 1;
write('Введите значение A: ');
readln(a);
write('Введите значение N: ');
readln(n);
while (n > i) do
begin
result := result * a;
i := i + 1;
end;
writeln('Ответ: ', result);
end.

Спасибо огромное:) Ты меня спас;)
^_^