Задача в Паскале: Ввести целое число и определить, верно ли, что в нём ровно 1 цифра 9.
Помогите плз!
Ответы на вопрос
Ответил Nobunaga
0
var n,k,i:integer;
begin;
readln(n);
while n>1 do
begin;
if n mod 10=9 then inc(k);
n:=n div 10;
end;
if k=1 then writeln(true) else writeln(false);
end.
begin;
readln(n);
while n>1 do
begin;
if n mod 10=9 then inc(k);
n:=n div 10;
end;
if k=1 then writeln(true) else writeln(false);
end.
Новые вопросы
Математика,
2 года назад
Математика,
2 года назад
Математика,
9 лет назад
Математика,
9 лет назад
Обществознание,
10 лет назад