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

Question

Анект

30 мая, 06:47

+1

Ответы (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.