20 из диапазона [a,b] получить сумму положительных - вопрос №209734019 от topghalya228 05.03.2020 14:28

Question

Информатика: 20 из диапазона [a,b] получить сумму положительных чисел и подсчитать количество отрицательных чисел.

topghalya228 · Answer

Var a,b,c,d,i:integer; begin read (a,b); c:=0; d:=0; For i:=a to b do begin If i 0 then c:=c+1 else d:=d+i; end; Writeln (c); Writeln (d); end....