Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
zorohast
29.04.2020 13:09 •
Информатика
Ввести с клавиатуры 4 целых числа при этом 3 из них одинаковые , а 1 отличается ,вывести на экран отличающегося числа pascal abc
Показать ответ
Ответ:
Karapetrova05
07.10.2020 09:12
Var a,b,c,d:integer;
Begin
Write('Введите числа: ');
Readln(a);
Readln(b);
Readln(c);
Readln(d);
If b=c then If c=d then Writeln(a);
If a=c then If c=d then Writeln(b);
If a=b then If b=d then Writeln(c);
If a=b then If b=c then Writeln(d);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
anastasiyaaldo
17.08.2021 21:53
1.элементарным объектом, используемым в растровом графическом редакторе, является: 1.точка экрана (пиксель) 2.прямоугольник 3.круг 4.палитра цветов 2.деформация изображения...
Lena12281995
19.01.2021 06:05
Исполнитель че¬ре¬паш¬ка пе¬ре¬ме¬ща¬ет¬ся на экра¬не компьютера, остав¬ляя след в виде линии. в каж¬дый кон¬крет¬ный мо¬мент из-вест¬но по¬ло¬же¬ние ис¬пол¬ни¬те¬ля...
mandarinkamare007
23.08.2021 19:10
Посмотри что получится если выполнить команды для чисел 10 и 22 допиши команды алгоритма и выполни команды для чисел 8 и 30 запиши что получается...
Yorfound
23.08.2021 19:10
Для упорядочивания по возрастанию массива целых чисел из 20 элементов (номера элементов начинаются с 0) начинающий программист написал следующий фрагмент программы: for...
vladholyngha
23.08.2021 19:10
Шестиклассники аня, боря, вася, галя, даша и иван получили в подарок флешки на 1, 2, 4, 8, 16 и 32 гб. выясните, кто из получил флешку самого большого и кто - самого...
DanilSoldatkin
23.08.2021 19:10
Составте программу, которая вычесляет среднюю плотность раствора(в кг/м3) по результатам изменения плотности 7 проб( в массиве констант: 1205, 1350, 1170, 1320, 1220,...
vasiapasi17
23.11.2022 07:39
Рассмотри изображение, определи какой элемент указан под цифрами1,2,3 в тексте а) сноскиб) оглавлениев) ссылки !!Это сор ...
leonleontiev6
03.03.2022 16:05
1. Как добавить видео в презентацию?2. Какие действия можновыполнить во Вкладке ФорматВидео?...
0Alis11
13.02.2022 20:47
Скласти речення з прислівниками і співзвучними словами: навіки -- на віки, назкстріч -- на зустріч, по-перше -- по перше, востаннє -- в останнє, напам ять -- на пам ть...
kondakovvasenk
13.02.2022 20:47
Составить не большой, не трудный текст про как развивались средства передвижения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('Введите числа: ');
Readln(a);
Readln(b);
Readln(c);
Readln(d);
If b=c then If c=d then Writeln(a);
If a=c then If c=d then Writeln(b);
If a=b then If b=d then Writeln(c);
If a=b then If b=c then Writeln(d);
End.