Ответы на вопрос:
Var a, p, t: longint; begin p: =1; for t: 1 to 5 do begin readln (a); p: =p*a; end; writeln (p); end.
Популярно: Информатика
-
Ричард25621.08.2022 14:16
-
лох24825.07.2020 19:26
-
nasyapest18.10.2022 16:20
-
ivanova606010.03.2023 20:19
-
UliaOlolenko46402.03.2021 05:32
-
sonyavolkova2612.07.2022 09:11
-
nikitalandsberg08.05.2020 08:35
-
DarinaKimovsk07.02.2021 22:59
-
Света2017715.10.2021 13:41
-
denisnickolenko11.11.2021 05:53