Цикл со счетчиком. Представить блок-схему и программу.
Дано два целых положительных числа a и n, вводимых с клавиатуры. Найти n^a.
Ответ
Автор - Pashq4
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.