Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.