Question

Срочно!!!!Дано натуральное число
Определить колличество цифр 3 в нем.ЭТО ИЗ УЧЕБНИКА ПО ПРОГРАММИРОВАНИЮ ЗЛАТОПОЛЬСКИЙ 9 КЛАСС

Answer 1

var n,count:longint;
begin read(n);
count:=0;
repeat n:=n div 10;
inc(count);
until n=0;
writeln(count);
end.