Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу для Pascal.
Вычислите сумму положительных и кол-во отрицательных чисел на отрезке, концы которого вводятся с клавиатуры.

Ответ оставил Гость

Var a,b,k1,k2,s:integer; 
begin 
s:=0; 
k1:=0; 
writeln(Введите начало и конец отрезка); 
read(a,b); 
k2:=b-a+1; 
repeat 
if b<0 then break; 
s:=s+b; 
b:=b-1; 
inc(k1); 
until (b=-1) or (b=a-1); 
writeln(Сумма всех целых положительных чисел на отрезке = ,s); 
writeln(Количество отрицательных целых чисел = , k2-k1); 
end.