3. Какие единицы информации вы знаете? Назовите также 3 дополнительные единицы (производные единицы измерения).

102

251

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

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

olga000064

Информатика

4,5(50 оценок)

1. var a,z: integer; begin z: =1; readln(a); while a< > 0 do begin if a< 0 then z: =-z; readln(a); end; if z=-1 then writeln('произведение отрицательных чисел отрицательно') else writeln('произведение отрицательных чисел положительно'); end. пример: 12 -45 -87 -20 0 произведение отрицательных чисел отрицательно2.var n,a,x,s,i: integer; beginreadln(n,a); s: =0; for i: =1 to n do begin readln(x); if x> a then s: =s+x end; writeln('s = ',s); end.пример: 5 304815802932s = 160