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

Найти и напечатать u = min{x+y, xy}
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы