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

Question

Информатика

Геруха

18 мая, 23:36

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

+5

Ответы (2)

Знаешь ответ?

Ната · 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.

Гость Александр · Answer 2

Что вообще такое Begin, Read, dib, когда там должно быть while || if || printf || scanf