Найти: а) сумму всех целых чисел от 100 до 500; б) сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a 500) ; в) сумму всех целых чисел от - 10 до b (значение b вводится с клавиатуры; b - 10) ; г) сумму всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b a).

А) var a, sum, i:integer;

begin

sum:=0;

for i:=100 to 500 do

begin

sum:=sum+i;

end;

writeln (sum) ;

end.

б) var a, sum, i:integer;

begin

sum:=0;

writeln ('Введите число a') ;

readln (a) ;

for i:=a to 500 do

begin

sum:=sum+i;

end;

writeln (sum) ;

end.

в) var b, sum, i:integer;

begin

sum:=0;

writeln ('Введите число b') ;

readln (b) ;

for i:=-10 to b do

begin

sum:=sum+i;

end;

writeln (sum) ;

end.

г) var a, b, sum, i:integer;

begin

sum:=0;

writeln ('Введите число a') ;

readln (a) ;

writeln ('Введите число b') ;

readln (b) ;

for i:=a to b do

begin

sum:=sum+i;

end;

writeln (sum) ;

end.