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