Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Инна1234432114865
10.05.2021 03:03 •
Информатика
Впаскале: ввести целое число и определить, верно ли, что в нём ровно 1 цифра 9. плз!
Показать ответ
Ответ:
KatkatamailRu
03.10.2020 01:39
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Милана11347
27.12.2021 07:57
Составьте словесный алгоритм и блок-схему для нахождения наименьшего из трех значений....
ZigFinde
15.08.2022 10:11
Расписания является моделью движения поездов. ответ: блок-схема графы график таблица...
frankinshtein228
20.02.2022 18:14
Даны вещественные числа x и y. Если x и y отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба...
givemepizza
29.03.2022 20:08
4. Каждому ученику 1 класса полагается дополнительный стакан молока, если его вес меньше 30 кг.. Количество учеников – 15, вес каждого известен. Выяснить сколько литров необходимо...
мэривип
12.02.2023 22:18
Дәстүрлі формат5,630,325,5Бөлшек форматы5 3/5303/10251/2...
Бллллллл
15.07.2022 21:44
Создание и редактирование растровых изображений Изображения растровой графики состоят из:5396160чиселгеометрических фигурпикселейсимволовНазадПроверить...
Мижоп
20.05.2022 01:21
Не понимаю как решать такие задания с кругов эйлера, хотелось бы увидеть, как это решается, желательно именно кругами эйлера....
supanzerbe
25.09.2020 20:29
15. Найти ответ при выполнении фрагмента программы, если..a=9, b=4 read (a, b) if a b thеn y=sqrt (5) else y=sqr (a); write (y): с задачей плз...
Zvezdo4kaKatty
21.06.2022 06:16
Рядом со школой растут 6 деревьев : сосна, береза, липа, тополь,ель, и клён. известно,что береза ниже тополя, а липа выше клёна, сосна ниже ели, липа ниже березы, сосна выше тополя....
aprishkom
03.05.2021 01:03
Докажите что реформы избранной рады прежде всего укрепляли центральную власть? как ни будь кратко но мне вообще пофиг...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.