20 из диапазона [a,b] получить сумму положительных чисел и подсчитать количество отрицательных чисел.
Отличник1029
3
05.10.2019 03:00
0
Другие вопросы по теме Информатика
ванёк10062005
05.09.2019 00:10
nova9696
04.09.2019 22:45
Женивева12
20.05.2020 12:51
Dima1208
26.12.2021 02:56
LSP111
26.12.2021 02:55
Dimon200315
29.04.2020 18:24
PolinaReyblogger
29.04.2020 18:24
Популярные вопросы
- Длина огорода 15м, что на 10 м больше его ширины. площадь сада...
2 - Закончите уравнения реакций,разберите с точки зрения окисления-восстановления:...
3 - Морфологический разбор предложения всё в природе замерло и погрузилось...
1 - Квадрат со стороной 8 см свернут в цилиндр. найдите радиус основания...
2 - Решить.: как решить простейшие уравнения с модулем: |х|=6; |-х|=2;...
1 - Запишите данные словосочетания в именительном, дательном и творительном...
1 - Сочинение на на тему health care...
3 - Назовите основные этапы развития восточной макрорегиона в 20в....
2 - Преобразуйте в многочлен (a-4)(a+4)-2a(3-a) (a-8)(a--9) в квадрате...
3 - Характеристика всех героев поэмы мёртвые души...
2
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.