Ответы на вопрос:
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.
Популярно: Информатика
-
4333Jack9911.11.2020 12:00
-
витльд17.01.2020 17:33
-
артем115117.04.2021 19:26
-
bukinaleksandrp08nhi29.01.2022 03:46
-
Maxys36514.09.2022 23:18
-
tihomir7211.08.2021 08:20
-
Аркаша228133710.03.2020 18:40
-
bceznaika207.01.2020 19:50
-
anna08020303.06.2020 20:28
-
YTTeamGardnYT29.07.2021 06:24