Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
DimkaNevidimka13
24.12.2022 04:25 •
Информатика
Дано трехзначное число. напишите программу, которая определяет есть ли среди цифр заданого целого трехзначного числа одинаковые цифры.
Показать ответ
Ответ:
Lollimil
21.07.2020 07:30
var
a,i : integer;
b : array [1..3] of integer;
begin
readln (a);
for i := 1 to 3 do
begin
b[i] := a mod 10;
a := a div 10;
end;
If (b[1] = b[2]) or (b[2] = b[3])
or (b[1] = b[3]) then
writeln ('Есть одинаковые цифры')
else
writeln ('Нет');
readln ();
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
retrovaweforyou
05.05.2023 18:52
4. Для какого из приведённых значений числа X истинно высказывание: НЕ (X 6) И (X 7)? 1) 5 2) 6 3) 7 4) 8...
gamerallgames3457643
08.01.2023 04:59
Множество с содержит элементы: {100, 200, 300, 600, 900}. множество d содержит элементы: {0, 200, 500, 700, 900}.Сколько элементов содержится только в множестве d, но...
timkazhimov
10.01.2021 11:56
Напишите имя Настя в чертежнике(программа.кумир) УМОЛЯЮ...
Kamil73773
09.03.2023 09:42
Каким классом можно дополнять файл, но не перезаписывать? Как правило, при создании объекта класса PrintWriter всё содержимое файла удаляется. В Java*...
Пвлчлчпс
08.01.2023 20:19
Кто создал интернет и в коком году. если можно с фотографиями ученых. 24...
Vladislava256
20.04.2023 19:57
Решите уравнения на фото (только а и б ,1 и 2)...
1saridua1
14.03.2022 21:10
Написать программу вычисления разговора по телефону с учетом 20% скидки, предоставляемой по субботам и воскресеньям. извне вводится длительность разговора(в целых минутах)...
Пингвинено25
27.01.2023 04:49
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (1, 13); (14, 2); (1, 12); (11, 12); (–14, –14);...
kristoyozhik
28.11.2022 19:14
№1 Условие задачи: Между населёнными пунктами А, В, С, D, Е, F построены дороги, протяжённость которых приведена в таблице. (Отсутствие числа в таблице означает, что прямой...
Аккаунт удален
25.03.2020 08:50
Найдите силу тяжести и вес покоящегося свинцового шара объёмом 23см(в кубе)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,i : integer;
b : array [1..3] of integer;
begin
readln (a);
for i := 1 to 3 do
begin
b[i] := a mod 10;
a := a div 10;
end;
If (b[1] = b[2]) or (b[2] = b[3])
or (b[1] = b[3]) then
writeln ('Есть одинаковые цифры')
else
writeln ('Нет');
readln ();
end.