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

269

355

Посмотреть ответы 2

Ответы на вопрос:

vladagabriell

Информатика

4,8(26 оценок)

Вроде так 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 beginx: =(a+b+c); end; writeln ('сумма' , x ); if min> 0 then begin x: =(a*b*c); end; writeln ('произведение' , x ); end.