ввести целое число и определить верно ли что в нём ровно 1 цифра «9». Помогите составить задачу в Паскале, должен быть оператор while
Ответы
Ответ дал:
0
Var
A,B:integer;
Begin
WriteLN('Введите целое число');
Read(A);
While A<>0 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.
A,B:integer;
Begin
WriteLN('Введите целое число');
Read(A);
While A<>0 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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад