Определить минимум из 3 введенных чисел. Если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведение

В паскале

Question

Информатика

Анфиса

27 октября, 21:48

Определить минимум из 3 введенных чисел. Если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведение

В паскале

+2

Ответы (1)

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

Лилюня · Answer 1

Вроде так

if a>b then begin

min:=b;

end

else begin

min:=a;

end;

if c>min then begin

min:=min;

end

else begin

min:=c;

end;

writeln ('Наименьшее число ', min) ;

if min<0 then begin

x: = (a+b+c) ;

end;

writeln ('Сумма', x) ;

if min>0 then begin

x: = (a*b*c) ;

end;

writeln ('Произведение', x) ; end.

Определить минимум из 3 введенных чисел. Если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведениеВ паскале

Определить минимум из 3 введенных чисел. Если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведение

В паскале