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

Question

Толя

21 сентября, 10:39

+5

Ответы (1)

Знаете ответ на вопрос?

Вестита · Answer 1

Вот держите:

var a, k:integer;

begin

repeat

readln (a) ;

if a mod 3 = 0 then inc (k) ;

until a=0;

writeln (k-1) ;

end.