Ответы на вопрос:
Uses crt; var a: array[1..4] of integer; sum,i: integer; begin clrscr; writeln('введите 4 целых числа: '); for i: =1 to 4 do begin read(a[i]); if a[i]mod 3=0 then sum: =sum+a[i]; end; writeln('сумма чисел, кратных трем: ',sum); end.
Популярно: Информатика
-
class4v201613.07.2022 01:17
-
Эвелиначерлидер21.06.2020 19:49
-
Ivan236713.08.2020 01:16
-
KriStiNaTim0330.04.2021 02:55
-
урсвт07.02.2021 07:41
-
milka87627.02.2022 14:53
-
Pleshkova0121.02.2022 01:06
-
Kirill2006133717.07.2022 09:43
-
06062007ивант06.06.2023 09:51
-
waves2412.10.2022 12:04