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

103

125

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

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

1321321325555555

Информатика

4,4(96 оценок)

Var a,b,c,d,a1,b1,c1,d1: real; begin a1: =0; b1: =0; c1: =0; d1: =0; read (a,b,c,d); if (a< 0) or (b< 0) or (c< 0) or (d< 0) then begin if (a< 0) then a1: =a; if (b< 0) then b1: =b; if (c< 0) then c1: =c; if (d< 0) then d1: =d; writeln ('сумма отрицательных = ',a1+b1+c1+d1); a1: =1; b1: =1; c1: =1; d1: =1; if (a< 0) then a1: =a; if (b< 0) then b1: =b; if (c< 0) then c1: =c; if (d< 0) then d1: =d; writeln ('произведение отрицательных = ',a1*b1*c1*d1); end else writeln ('все числа больше либо равны 0'); end.