Информатика, опубликовано 2018-08-22 23:25:22 by Гость
Задача в Паскале: Ввести целое число и определить, верно ли, что в нём ровно 1 цифра 9. Помогите плз!
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на