Найти и напечатать u = min{x+y, xy}

Question

Информатика

Дионисий

22 ноября, 15:56

Найти и напечатать u = min{x+y, xy}

+4

Ответы (1)

Знаете ответ?

Патрикия · Answer 1

Var x, y, u:real;

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

begin

if a>b then min:=b else min:=a;

end;

begin

write ('x=') ; read (x) ;

write ('y=') ; read (y) ;

u:=min (x+y, x*y) ;

writeln (u) ;

end.