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

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

Question

Андрея

30 августа, 10:01

+4

Ответы (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)надо решить в паскале (условный оператор)