Предмет: Информатика, автор: adikaddkk

На вход программы поступает неизвестное количество чисел целых, ввод заканчиваем нулем. определить сколько полученно чисел которые делятся на 3

Ответы

Автор ответа: jefftop
6
Вот держите:

var     a,k:integer;

begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.
Похожие вопросы
Предмет: Биология, автор: pustota15