Question

Цикл со счетчиком. Представить блок-схему и программу.
Дано два целых положительных числа a и n, вводимых с клавиатуры. Найти n^a.

Answer 1

var a, n, rez, i: integer;
begin
write('Введите a: ');
readln(a);
write('Введите n: ');
readln(n);
if a = 0 then rez := 1
else begin
rez := n;
for i := 1 to y - 1 do rez := rez * n;
end;
writeln(rez);
end.