Информатика, опубликовано 2018-08-22 18:57:34 by Гость
Посчитать количество вхождений в данное натуральное число цифры 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на