Ответы на вопрос:
Var b: byte; a: integer; c: longint : = 1; begin readln(a, b); repeat c *= a; b -= 1; until b = 0; writeln(c); end.
Популярно: Информатика
-
Kris90512.12.2022 15:16
-
MaxZvanie29.08.2020 15:44
-
89004613297cn30.04.2023 07:00
-
сана2425.01.2023 02:28
-
amulina201514.06.2020 06:09
-
badyul29.12.2022 19:29
-
mixajlovdenisk28.12.2022 19:00
-
arada113.03.2020 07:17
-
KUGOTVIN18.03.2021 23:54
-
семон108.02.2022 21:12