Посчитать количество вхождений в данное натуральное число цифры 9

CategoriesГеометрияПредмет

Посчитать количество вхождений в данное натуральное число цифры 9

Ответы:

var

A,i:longint,

begin

Write(Введие число:),

Readln(A),

i:=0,

while A &gt,=9 do

begin

if A mod 10 = 9 then 

inc(i),

A:=A div 10,

end,

WriteLn(i=,i),

Readln,

end.