Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
andrejisaev20Andrey
18.11.2020 18:16 •
Информатика
Дано целое трехзначное положительное число n. составьте программу которая определяет входит ли в него цифра восемь.
Показать ответ
Ответ:
o123456789
17.07.2020 00:02
Const ch=8;
var n:integer;
begin
read(n);
while n>0 do begin
if(n mod 10=ch)then begin
writeln('yes'); break;
end;
n:=n div 10;
end;end.
еще можно в строку преобразовать и посимвольно проверить, но мне кажется так нагляднее и алгоритм проще
0,0
(0 оценок)
Популярные вопросы: Информатика
помагите71
26.10.2021 15:14
В одной из кодировок Unicode каждый символ кодируется двумя байтами. Коля написал текст (в нём нет лишних пробелов): «Як, лис, барс, жираф, гепард, медведь, росомаха...
Maks00p1
27.04.2022 16:58
Для записи сообщения Ура, каникулы! использовали алфавит мощностью 256 символов. Определите информационный объём сообщения. ответ запишите в байтах. Единицы измерения...
marullens
19.03.2023 05:36
Напишите программу считающиая количество кратных, максимальное и минимальное кратное(строго паскаль абц)...
ZigZag1983
21.08.2020 14:15
сделайте это нужно.Введите в ячейки А1 и B1 два числа и в ячейке CI запишитедействия, указывающиена замену третьей-пятой цифр длинного числана короткое....
ivahinzeha475
22.12.2020 09:44
Угусей и кроликов вместе n лап (n - четное). сколько может быть гусей и кроликов (вывести все возможные варианты)?...
Ромашка111113
22.12.2020 09:44
Монография, набранная на компьютере, содержит 2048 страниц, на каждой странице 48 строк, в каждой строке 72 символа. для кодирования символов используется кодировка...
Magomedrasul05555
19.03.2022 11:30
Паскаль задан целочисленный массив a[n]. определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит...
zhivotkhanova95
24.07.2022 15:08
Информатика 6 класс, пропустили уроки, пытаемся изучить, не понимаем , 1. дано 5 значное число 1к примеру 2345-найти его цифры 2. дано 2 значное число к примеру...
Clem404
16.12.2020 07:26
Нужно по данной блок-схеме написать програму для решения в среде vba в excel...
стас489
22.04.2022 23:00
Решить , это нужно делать в паскале: 1) напишите программу, которая по заданному числу вычисляет его последнюю цифру 2) напишите программу, которая по заданному...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n:integer;
begin
read(n);
while n>0 do begin
if(n mod 10=ch)then begin
writeln('yes'); break;
end;
n:=n div 10;
end;end.
еще можно в строку преобразовать и посимвольно проверить, но мне кажется так нагляднее и алгоритм проще