20 из диапазона [a,b] получить сумму положительных - вопрос №973469620 от Ксюшка1521 21.05.2023 04:45

Question

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

Ксюшка1521 · 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....