Посчитать количество вхождений в данное натуральное число цифры 9
Посчитать количество вхождений в данное натуральное число цифры 9
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы