ddbbqq
23.08.2021 10:50

Даны действительные числа x,y. получить max(x,y) , min(x,y), решение на delphi

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
IvanShadow
09.10.2020 13:25

var x,y,z,d:real;

function min(a:real; b:real) : real;

begin

if(a > b) then min:=b

else min:=a;

end;

function max(a:real; b:real; c:real) : real;

begin

if((a >= b) and (a >= c)) then max:=a;

if((b >= a) and (b >= c)) then max:=b;

if((c >= a) and (c >= b)) then max:=c;

end;

begin

read(x,y,z,d);

write(max (min (x, y), min (x, z), min (z, d))) ;

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота