Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
longassride
04.06.2021 17:37 •
Информатика
Ввести целое число и определить верно ли что в нём ровно 1 цифра «9». составить в паскале, должен быть оператор while
Показать ответ
Ответ:
Аааоо0
05.10.2020 14:55
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ksu576
23.03.2021 03:15
Некоторой школе занятия начинаются в 9: 00. продолжительность урока — 45 минут, после 1-го, 3-го, 5-го и т. д. уроков перемена длится 5 минут, а после 2-го, 4-го, 6-го и т. д....
дима4455
23.03.2021 03:15
Широко известный бывший стилист сергей з. увлекся бонистикой — он собирает банкноты. особенно ему нравятся крупные купюры. поэтому он просит выплачивать ему гонорары только такими...
Aseka09
24.08.2022 19:04
Вячейке электронной таблицы j5 записана формула =а1*в2. какая формула будет получена из неё при копировании в ячейку j7...
evzrezovatatya
21.02.2021 08:43
Какие из следующих последовательностей символов* являются идентификаторами, а какие нет: a) x; б) x1; в) x1; г) x ; д) x1x2; е) ab; ж) abcd; з) sin; и)sin x; к) sin(x); л) a-1;...
EminRoth
21.02.2021 08:43
Врач-стоматолог принимает пациентов с 8 до 12. на каждого пациента отводится 30 минут. какое количевство информации содержит сообщение о том что пациент записался на 11: 30?...
987helen
14.10.2020 08:59
Редактирование рисунка. Урок 1 Выбери из списка вкладку, где находятся инструментыформатирования надписи.ВИДГЛАВНАЯНАДПИСЬAТЕКСТ- НазадПроверить...
dasausakova526
17.08.2020 04:14
Какая клавиша позволяет при перетаскивание объекта оставлять след Вырианты ответа:Ctrl Delete Shift Alt...
alisekriz
08.04.2021 04:13
Даны два числа V и N. Составьте программу, которая выведет ответ для решения следующей задачи: Нефтебаза отпустила за два дня V литров бензина. Во второй день база отпустила на...
mikreaz
10.12.2021 23:17
1. Для чего предназначен микрокомпьютер EV3? 2. Для чего предназначен Большой мотор EV3? 3. Для чего используется Средний мотор EV3?...
нэлли1987
10.04.2021 09:53
Ввести массив из 10 целых чисел с клавиатуры. Вывести количество элементов с четными порядковыми номерами....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.