Ввести целое число и определить верно ли что в нём ровно 1 цифра "9". Помогите составить задачу в Паскале, должен быть оператор while

Question

Информатика

Егорий

8 января, 11:57

Ввести целое число и определить верно ли что в нём ровно 1 цифра "9". Помогите составить задачу в Паскале, должен быть оператор while

+1

Ответы (1)

Знаете ответ на вопрос?

Муля · Answer 1

Var

A, B:integer;

Begin

WriteLN ('Введите целое число') ;

Read (A) ;

While A0 do

Begin

if A mod 10 = 9 then B:=B+1;

A:=A div 10;

End;

if B = 1 then Write ('В числе ровно одна девятка')

else Write ('Кол-во девяток в числе: ', B)

End.