8класс
Часть 2 страница 85 номер 213, ГДЗ по информатике за 8 класс к рабочей тетради Босовой бесплатно
Номер 213. Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 3. Программа получает на вход целые числа. Количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 3.
program PP;
var x, k: integer;
begin
k: =0;
repeat
readln(x);
if (x mod 3 = 0) and (x mod 2 =0) and (x< >0) then k: = k+1;
until x=0;
writeln(‘k=’, k);
end.
