Отримайте за до зрізів рядки 'програміст' та ' зірка ' з рядка ' якщо ви можете запрограмувати комп'ютер , то ви зможете досягти своєї мрії. Дік Костоло' .
125
210
Ответы на вопрос:
Var a: array [1..200] of integer; i, j, q, a1: integer; begin writeln('kakoi dlini massiv? '); readln(q); for i: =1 to q doreadln(a[i]); a1: =a[1]; j: =1; while j< =q do beginj: =j+3; a1: =a1*a[j]; end; writeln(a1); end.
Популярно: Информатика
-
BekaBeka00102.01.2021 19:15
-
VeronicaOgne22.06.2021 22:00
-
мкм6ккмг11.11.2021 01:51
-
xZeoNx21.09.2021 18:21
-
nadjanikiforovp0bx4005.01.2022 10:48
-
koretstanya124.03.2021 19:27
-
avatariyaflora23.11.2022 06:39
-
Keenio13.04.2020 14:59
-
rje8739112.10.2020 11:37
-
ivanovanaira03.06.2021 22:59