Помогите решить в Паскале с процедурой пожалуйста

Question

Помогите решить в Паскале с процедурой пожалуйста. Даны действительные a, b, c, d. Используя функции поиска максимума двух чисел max и минимума двух чисел min, получить: max (a, b)+min (a, b)+min (c,d) ——————––––—––——— . max (a, b, c, d)+min (a,b,c)

Answer 1

83

expert899

24 февраля 2023

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. Вот, тут тебе и процедура, и функции

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: