Паскаль!! дам 20 баллов
Из диапазона [a,b] получить сумму положительных чисел и подсчитать количество отрицательных чисел.
Ответы
Ответ дал:
0
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.
Похожие вопросы
1 год назад
2 года назад
2 года назад
8 лет назад