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

Question

Информатика

Эдит

1 ноября, 04:27

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

+5

Ответы (1)

Знаете ответ?

Толюня · Answer 1

Var

A, i:longint;

begin

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

Readln (A) ;

i:=0;

while A >=9 do

begin

if A mod 10 = 9 then

inc (i) ;

A:=A div 10;

end;

WriteLn ('i=', i) ;

Readln;

end.