Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
aliher01
26.09.2022 04:18 •
Информатика
Определить, встречается ли в введенном числе хотя бы одна цифра больше 3, но меньше 8
Показать ответ
Ответ:
anyakosilo33
03.10.2020 16:00
Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lizashevchuk664
24.11.2022 05:45
Проверьте коды на ошибки Программа выдает ошибки, я их исправляю в итоге она выдает еще множество других. Я не понимаю что не так. //файл Rech.spp #include stdafx.h...
Алекс23102027
15.08.2022 23:33
буду очень благодарна ...
HelpMePzhalsta
19.04.2020 04:24
Підготуй коротке повідомлення на тему Розвиток друкарства в Україні 5 класс...
Lyadavinchi
21.09.2020 23:35
Balatech 96 и 97 уровень...
кек945
25.06.2020 20:32
Задача 17. Скластизавданнявідповідно до блок-схеми.TA:=A+1ніA 5?так Очень ...
хорошист438
22.07.2020 22:26
Определите, при каком наименьшем положительном введённом значении переменной s программа выведет отрицательное число....
9416451
22.07.2020 22:26
# В данной реализации программа начисляет одинаковое количество очков за слова разной длины # ЗАДАНИЕ: изменить программу таким образом, чтобы количество очков, которое...
bahyt061089
21.04.2020 02:12
по информатике сор 4 четверть...
nik65112
02.05.2023 09:37
На приборе установлены два датчика, на основании показаний которых он включается или не включается. Показания датчиков - это целые числа A и B, по модулю не превышают...
igor2285
28.04.2023 23:23
1.Правдоподобный доменный адрес а)ivanov..tver..ru б)school6.edu.ru в)Ivanov/tver/ru Г)ru.edu.school6 2.Дана электронная таблица: A B C 1 2 4 3 2 3 6 2 3 7 1 1 Значение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.