Задача,paskal В данном числе x определить количество цифр кратные 3

[Илья новичок]

Помогите!!!!!Не понимаю задачу''В данном числе x определить количество цифр кратные 3

[type_Oleg]

В числе 2016 количество кратных 3 - 2 шт. : 0 и 6

[Илья новичок]

извини но мне надо написать это в паскале а я не знаю как

[Илья новичок]

помоги чем сможешь

[type_Oleg]

Сообщение от Илья новичок

в паскале а я не знаю как

Почитай про операции div и mod , узнаешь.

[newerow1989]

var n,c,m:integer;
begin
   Write('n = '); Readln(n);
   c:=0;
   Repeat
      m:=n mod 10;
      n:=n div 10;
      If m mod 3=0 then
         c:=c+1;
   Until n=0;
   Writeln(c);
   Readln;
end.