Question

Паскаль, цикл while
Вводятся числа, посчитать кол-во чисел, которые делятся на 2 и которые делятся на 3. Ввод закончить 0. Вывести на экран кол-во чисел , делящихся на 2 и кол-во чисел, делящихся на 3.
помогите, пожалуйста

Answer 1

n, i, k, d, t:integer;
begin
while n<>0 do
readln(n);
if (n mod 2)=0 then d:=d+1;
if (n mod 3)=0 then t:=t+1;
writeln(d,' ',t);
readln;
end.