Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 3. программа получает на вход целые числа. количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чётных чисел, кратных 3.
177
386
Ответы на вопрос:
Program hhh54; var i,x,k: longint; begin k: =0; for i: =1 to 1000 do begin read (x); if x mod 6 = 0 then k: =k+1; if x = 0 then begin break end; end; write (k-1); end.
Популярно: Информатика
-
Lososepotam13.06.2020 13:43
-
илья197203.12.2021 03:32
-
marina1976124.01.2022 09:15
-
Hennesy32217.06.2020 20:24
-
cneze09.10.2022 05:50
-
Ёкабоня629.10.2022 06:51
-
artemnovik50627.02.2023 01:59
-
knowyourmemesboy12.02.2023 16:28
-
Волщебница07.01.2023 20:41
-
dmitrijcazovo8128.09.2022 23:31