Ответы
Ответ дал:
0
var
b: byte;
a: integer;
c: longint := 1;
begin
readln(a, b);
repeat
c *= a;
b -= 1;
until b = 0;
writeln(c);
end.
b: byte;
a: integer;
c: longint := 1;
begin
readln(a, b);
repeat
c *= a;
b -= 1;
until b = 0;
writeln(c);
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад