Найдите значение Z, определив использовав функцию Min. Z=min(3,x)+min(x,y)-min(y,5)

Question

Найдите значение Z, определив использовав функцию Min.
Z=min(3,x)+min(x,y)-min(y,5)

Answer 1

Var  x,y,z:real;

function min(a,b:integer):integer;
begin
if aend;

begin
writeln('Введите х и у: ');
readln(x,y);
z:=min(3,x)+min(x,y)-min(y,5);
writeln('z=',z);    
end.

Comments

Спасибо большое

---

Пожалуйста