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

Question

Информатика

Меля

31 июля, 07:37

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

+2

Ответы (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.