Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Настя3546955
28.11.2021 18:33 •
Информатика
Найти max{min(a,b), min(c,d)} написать на паскале.оператор if без всяких function
Показать ответ
Ответ:
lakras
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 оценок)
Популярные вопросы: Информатика
kuanyshbek2003
18.11.2020 07:23
Найдите максимальное трехразрядное число, представимое в системе с основанием 2. переведите это число в десятичную систему и умножьте его на количестве битов в двух байтах....
kolyakolomiets
09.04.2022 16:54
3загадки материальной модели....
atoko
18.05.2023 02:45
Рассмотрим объявления: Var a,x: integer; z: real; C: char; t: boolean; Определите, какие из следующих операторов записаны верно на языке ПАСКАЛЬ: a) z:= sqr(a) +sqr(a-2)+sin(x)-abs(a-x);...
дашкатопикепи
19.02.2023 20:27
Составить программу проверки есть ли в тексте буква s . напишите на c++...
ghrtoung
17.04.2022 05:00
Сколько времени понадобиться для того,чтобы скачать файл размером 5760 мбайт, если скорость локальной сети равно 120 мбит/секунду. ответ запишите в секундах....
Valeri200666
20.07.2020 11:37
Дана последовательность целых чисел а1 . найти два минимальных элемента последовательности количество чисел вводится с клавиатуры...
Бесполезная3
19.02.2023 07:21
Назвіть пам ятки героїчного епосу і лицарської літератури...
lim155
14.01.2022 21:42
Коли народилася М.Цвєтаєва нужно очень быстро...
аня2938
07.04.2023 12:18
2. Қоршаған орта түрткіжайттарының қайсысы абиотика- лық түрткіжайтқа жатпайды?а) үйінділердің жиналуыә) ауаның ылғалдылығыб) судың температурасыв) жарықтың әсері...
fcpolva
15.07.2020 22:06
Вызначце памер балады маці Аркадзь Куляшоў...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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