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

Question

Информатика

Добромила

10 января, 21:10

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

+3

Ответы (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.