Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
STONEISLAND1488
03.02.2021 19:43 •
Информатика
Найти max{min(a,b), min(c,d)} написать на паскале.оператор if без всяких function
Показать ответ
Ответ:
буслай
03.10.2020 11:32
Var a,b,c,d,min1,min2,max:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
write('d = '); readln(d);
if a<b then min1:=a else min1:=b;
if c<d then min2:=c else min2:=d;
if min1>min2 then max:=min1 else max:=min2;
writeln('max = ',max);
end.
Пример:
a = 5
b = 2
c = 1
d = 4
max = 2
0,0
(0 оценок)
Популярные вопросы: Информатика
Pawelikot
08.06.2020 06:03
Cкладіть проект у середовищі Scratch 2, у якому, поки виконавець не доторкнеться до межі, грає мелодія, якщо він отримає повідомлення грай, або рухається на 150 кроків уперед,...
nnejman
03.08.2022 13:22
Что будет выведено на экран в результате выполнения программ если задать следующие данные X-число (день вашего рождения)11...
Politik2000
16.05.2023 09:55
Запиши в тетради функции кнопок показанных на изображении...
Kovalenko2001N
06.01.2021 11:02
Тема:типы алгоритмов 6 класс...
евгения2066
03.11.2022 06:06
У клітинах таблиці можна розміщувати?...
Бекзат2000
30.10.2020 19:04
Тактовая частота процессора НЕ измеряется в ... ○ Герцах ○ Миллигерцах ○ Гигагерцах...
LunyaShag
07.08.2020 14:51
Очень от 1)Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажа- тием клавиши . Признаком конца последовательности является число 0. Напишите программу,...
кетблек
01.12.2021 15:28
Рассмотрите изображение. Расставьте порядок действий созданияобъекта.б ви е 32 то сеНарисоватьпрямоугольник,вытянутьКрепление кдереву.oooooo.E)...
tamtamtamira
09.11.2021 15:31
Артығын тап : а WordPad, б Microsoft Word, в paint, с блокнот...
Meeep
23.10.2021 06:30
Як отримати доступ до атрибутів об єкта у Python?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
write('d = '); readln(d);
if a<b then min1:=a else min1:=b;
if c<d then min2:=c else min2:=d;
if min1>min2 then max:=min1 else max:=min2;
writeln('max = ',max);
end.
Пример:
a = 5
b = 2
c = 1
d = 4
max = 2