Система счисление с основанием 311:
Запишется как [28][2]
проверка311**1*28+311**0*2 == 8710
var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.
Здесь есть ошибка счисления потому что 128+178=306 а не 318
Тем что там запрос, а там вопрос,ооочень глупо)