Ответы на вопрос:
1 var
2 a, an, n, i: integer;
3
4 begin
5 readln(a, n);
6 an := 1;
7 for i := 1 to n do
8 begin
9 an := an * a;
10 writeln(i, ' ', an)
11 end
12 end.
Объяснение:
Популярно: Информатика
-
gidfgwlr29.08.2022 14:31
-
sok609.03.2023 07:54
-
diana1717121.11.2020 01:59
-
НаСтЯ585605.10.2022 06:44
-
baus10015.02.2020 07:59
-
lfifа27.08.2022 06:00
-
Ladnaya5621.07.2020 16:43
-
Som777nik19.08.2020 06:59
-
CoconutPie04.02.2022 18:33
-
vasikstrowb01.07.2022 12:10