Даны m, n, k. Найти a = min (m+n+k, mnk)

надо решить в паскале (условный оператор)

Question

Вероника

12 июля, 05:12

+2

Ответы (1)

Знаете ответ на вопрос?

Дрона · Answer 1

var

a, m, n, k:real;

begin

readln (m, n, k) ;

if (m+n+k) < (m*n*k) then

a:=m+n+k

else

a:=m*n*k;

writeln (a) ;

end.

Даны m, n, k. Найти a = min (m+n+k, mnk)надо решить в паскале (условный оператор)