Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 3. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество всех чётных чисел, кратных 3.

Людина5 Людина5    2   02.09.2019 21:50    3

Ответы
79954236 79954236  06.10.2020 13:26
Var A,K:integer;
Begin
Read(A);
K:=0;
While A <> 0 do
   Begin
   if A mod 6 = 0 then K:=K+1;
   Read(A)
   End;
Write(K)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика