Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
хелпмиплиз666
11.09.2021 02:42 •
Другие предметы
Как барон пытается убедить слушателей в своей правоте? «Приключений барона Мюнхгаузена»
Показать ответ
Ответ:
альбина349
01.06.2020 19:05
Function min(a, b: real): real;
begin
if ((a = b) or (a < b)) then result := a
else result := b;
end;
function max(a, b: real): real;
begin
if ((a = b) or (a > b)) then result := a
else result := b;
end;
procedure prog(a, b, c, d: real);
begin
writeln(max(a, b)+min(a, b) + min(c,d));
end;
var a, b, c, d: real;
begin
readln(a, b, c, d);
prog(a, b, c, d);
end.
Вот, тут тебе и процедура, и функции:)
0,0
(0 оценок)
Популярные вопросы: Другие предметы
milana20123
18.10.2022 15:00
Учебное задание.Сравните питекантропа и неандертальца, заполните таблицу:...
m5zapir
07.12.2020 16:48
Өлеңдегі «Білгенге маржан, Білмеске арзан, қолданысын ой-таным- дық тұрғыдан талдап көріңдер. Өлеңде көтерілген мәселені ұлттық мүддетұрғысынан анықтаңдар....
allaaleksandro1
20.10.2022 05:15
Рассчитайте, сколько нужно взять соли и соды, чтобы приготовить 500мл, 2%- соле-содового раствора?...
andreyshilenko
31.01.2021 16:21
1. В собственности Иванова находится квартира в многоквартирном доме, не оборудованная индивидуальными приборами учёта потребленныхкоммунальных ресурсов. Иванов в указанной квартире...
Дима15313
26.01.2023 21:39
Какова сущность «искусства поверхности» и его аналога — юмора — в культуре XXI века?...
1234мика
11.09.2021 21:55
При спалюванні 0,93 г органічної речовини виділилось 0,62 л карбон(ІV) оксиду, 1,35 г води та азот (н.у.). Відносна густина речовини за воднем дорівнює 15,5. Виведіть її молекулярну...
nastu41
11.09.2021 21:55
При каких значениях параметров а и б многочлен х³+ ах²+бх+аб при делении на двухчлен х-2 даёт в остатке 15, а при делении на х+1 даёт в остатке 0?...
yanamartynova6
15.11.2020 06:01
Ля минор построить D7 D65 D43 D2 с разрешением5) УМVII7 с разрешением6) лады народной музыки: эолийский, фригийский. дорийский. локрийский7) минорную пентатоникулюбые задание...
XXX231xxx
06.12.2022 05:13
Мәтіндегі көп нүктенің орнына тиісті сөздерді қойып көшіріп жаз...
agm7132
05.02.2022 15:15
Если в Жигули вставить мотор и двигатель от Ферарри то будет ли ехать Жигули с такой же скоростью как спорткар? Объясните почему?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
if ((a = b) or (a < b)) then result := a
else result := b;
end;
function max(a, b: real): real;
begin
if ((a = b) or (a > b)) then result := a
else result := b;
end;
procedure prog(a, b, c, d: real);
begin
writeln(max(a, b)+min(a, b) + min(c,d));
end;
var a, b, c, d: real;
begin
readln(a, b, c, d);
prog(a, b, c, d);
end.
Вот, тут тебе и процедура, и функции:)