Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
motorindmitry12
15.08.2022 00:01 •
Информатика
Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. вывести порядковый номер этого числа.
Показать ответ
Ответ:
Katyusha4368
02.10.2020 18:01
Borland Pascal 7.0
uses Crt;
var
a,b,c,d:integer;
begin
ClrScr;
Read(a,b,c,d);
if a<>b then
if b=c then Writeln(1) else Writeln(2)
else
if b=c then Writeln(4) else Writeln(3);
ReadKey
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kiryanovavichk
09.07.2022 07:00
Какие значения могут попасть в элементы массива при его заполнении program 1; var a: array [1..100] of integer; i,n: integer; begin readln(n); for i: =1 to n do a[i]: =random(26)-10;...
fefe228
09.07.2022 07:00
Дан одномерный масив, найти сумму квадратов всех элементов массива и число нечётных чисел. дайте полный ответ. со всеми program, randomize и т.д....
abdullaevs04
23.01.2020 07:44
Черно-белое растровое графическое изображение имеет размер 20х20 точек какой объем памяти займёт это изображение решите быстрее ! ...
прррр10
11.06.2020 09:55
Реализовать программу, вычисляющею и выводящую объём шара по введённому радиусу - r. входные данные выходные данные 2 33,49 3 113,03 1 4,18...
ONO2017
11.06.2020 09:55
Дано некоторое число составьте программу которая выводит какое это число положительное или отрицательное если оно положительное уменьшить в 2 раза а в другом случае взвести...
asilwa1190
11.06.2020 09:55
Дано натуральное число . определить есть ли в нем цифра а написать с постусловием язык паскаля !...
НяФФкА555
05.10.2021 21:52
Найти произведения первых трёх и последних трёх элементов массива а(10)...
JaikLong
03.06.2023 22:41
Определите значение переменной а после исполнения алгоритма: а: =5; а: =а+2;...
alona7773
16.07.2022 12:16
Определите объём звукового файла , если передача его по сети длилась 0,5 с при скорости 155 мегабит/с . запишите полученный результат в байтах...
bdoyan1994
11.03.2020 03:15
Написать программу поскаля, нахождение площади квадрата, значение сторон вводить с клавиатуры...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses Crt;
var
a,b,c,d:integer;
begin
ClrScr;
Read(a,b,c,d);
if a<>b then
if b=c then Writeln(1) else Writeln(2)
else
if b=c then Writeln(4) else Writeln(3);
ReadKey
end.