Задача - найти сколько троек в числе

[Zoltorn]

Как найти из файла по формуле N (1 ≤ N ≤ 1018) сколько троек в числе
Где то так я понял для одного числа
for i:=1 to 25 do
if (i mod 10=3)or(i div 10=3)then c:=c+1;
Проблема в том что что я не могу понять как находить в любом значении чисел(по формуле) число троек

[Stilet]

Если не ошибаюсь:

function treeco(i:integer):integer; var cnt:integer;
begin cnt:=0;
 while i>0 do begin cnt:=cnt+byte((i mod 3)=1); i:=i div 10;end;
 treeco:=cnt;
end;

[Zoltorn]

мне нужно считать з файла натуральное число (опять же формула) и посчитать сколько троек в числе