Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ледок
08.05.2020 14:01 •
Информатика
Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. вывести порядковый номер этого числа
Показать ответ
Ответ:
Miki201717
21.06.2020 04:29
Var a, b, c, d: integer;
begin
readln(a, b, c, d);
if (a <> b) then
if (a <> c) then writeln(1) else writeln(2)
else if (c <> a) then writeln(3)
else writeln(4);
end.
Вот так-то)
0,0
(0 оценок)
Популярные вопросы: Информатика
w11Maxim11w
17.07.2021 09:01
прибор предназначенные для создание действительного изображения плоского предмета небольшого размера на большом экране....
anayaremenco
25.04.2022 13:15
Напишите программу, которая выводит «А!» два раза (на отдельных строчках). Совет: отредактируйте программу «Эхо-1», изменив в ней всего одну строку – ту, на которой написан оператор...
Anyta15111
06.02.2022 09:42
Заранее ) 1 наименьшим элементом изображения на графическом экране является: а курсор б символ в пиксель г линия 2 цвет пикселя на экране монитора формируется из следующих базовых...
света940
28.05.2022 04:33
Запишите в развернутом виде числа: а)а8=143511; б)а2=100111; в)а16=143511; г)а10=143,511; д)а8=0,143511; е)а16=1аз,5с1....
ikol2912
28.05.2022 04:33
)составьте программу вычисления суммы 180 первых членов арифметической прогрессии если а1=-100 d=0,4...
Nnnnnn1111
17.11.2021 08:18
Вкодировке ascii на каждый символ отводится 1 байт. определите информационный объём сообщения в этой кодировке...
Tto2036
15.03.2022 06:51
Надо что бы робот закрасил типо и составить что то надо...
SashaChif
15.07.2021 22:52
Миша написал сообщение в мессенджере своей бабушке. Милая, бабушка! Я очень скучаю по тебе и твоей собаке Дине. Приезжай к нам в гости поскорее. Мощность компьютерного алфавита...
KaterinYu31
31.08.2021 02:35
Выписать в тетрадь культурные достижения Александрии Египетской...
Uqqt
16.01.2023 03:18
Дано: цилиндр, R=4 см, H=5см Построить цилиндр, показать на рисунке осевое сечение (см.рис.126, стр.91) Найти: а) S осн – площадь основания цилиндра; б) S бок - площадь боковой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a, b, c, d);
if (a <> b) then
if (a <> c) then writeln(1) else writeln(2)
else if (c <> a) then writeln(3)
else writeln(4);
end.
Вот так-то)