Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mrrusarmz
28.10.2020 09:38 •
Информатика
Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.
Показать ответ
Ответ:
dbblyadbblya
17.07.2020 18:57
Var
a: word;
b, c, d: byte;
begin
readln(a);
b := a mod 10;
c := a div 10 mod 10;
d := a div 100;
writeln(b, ' ', c, ' ', d);
if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then
writeln('Yes, there are')
else
writeln('No, there aren"t');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alinkamarkova82
04.06.2020 14:46
Напишите программу анимации в паскале. Круг перекатывающийся с окна в окно не подойдет Светофор и солнечная система тоже...
oksana1410
03.03.2020 06:17
Введите с клавиатуры числа Х и D и заполните массив элементами арифметической прогрессии с начальным элементом Х и разностью D. Не используёте встроенные функции. Написать программу...
hamster1324
28.12.2020 12:54
5. Определите тип алгоритма для указанных команд. ...
mira0209
19.10.2021 10:18
Рассмотрите предложенное оглавление и укажите количество используемых уровней: * 2 уровня1 уровень4 уровня3 уровня5 уровней...
дарья1644
23.12.2022 10:46
Составьте программу с использованием команды ветвления для решения одной из следующих (выбор осуществляется преподавателем): 1.1. по номеру месяца определить количество дней...
wormer221
14.08.2020 17:10
В воздухе оловянная деталь растянула пружину динамометра с силой 7,8 Н, а в масле — с силой 4,5 Н. Какая выталкивающая сила действует на деталь в масле?...
kristinamurrr1
05.05.2023 05:48
Шеңберге FA жанамасы жүргізілген. FOA бұрышының OA қабырғасының ұзындығы 4 см болса. OF қабырғасының ұзындығын табыңыз...
ЛиляОлье1
05.05.2023 05:48
Каким цветом на физической карте обозначаются низменности?...
annaarzama
05.05.2023 05:48
Одновременно подбрасываются два шестигранных игральных кубика. Запишите исходы для события «Число выпавших очков в сумме равно 7»...
Ангелина0113
14.08.2020 17:10
В данной экологической пирамиде от одного трофического уровня на другой трофический уровень передается менее 10 % энергии. Определите, на каком уровне в данной пирамиде...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: word;
b, c, d: byte;
begin
readln(a);
b := a mod 10;
c := a div 10 mod 10;
d := a div 100;
writeln(b, ' ', c, ' ', d);
if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then
writeln('Yes, there are')
else
writeln('No, there aren"t');
end.