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

Question

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

Comments

паскаль ?0

---

паскаль

---

а и б с клавиатуры вводятся?

Answer 1

Var a,b,c,d,i:integer;

begin

read (a,b);

c:=0;

d:=0;

For i:=a to b do begin

If i

end;

Writeln (c);

Writeln (d);

end.