8 Ячеек
B2|C2
B3|C3
B4|C4
B5|C5
5-тиичная система исчисления, тк 33+124+131=343
берем последнии цифры 3+4+1=13 , в этой системе исчисления 1+4 это переход в следующий разряд. 3 записываем, а 1 запоминаем. Следующие цифры 3+2+3 и +1(которую запомнили)=14. Итд
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2