20 из диапазона [a,b] получить сумму положительных - вопрос №973469620 от NastiaZaic 16.05.2021 07:50

Question

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

NastiaZaic · 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....