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

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

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт