Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-07T19:39:54+04:00

var a,b,s,i:integer;

begin

readln(a,b);

if a>b then

for i:=b to a do

s:=s+i

else

for i:=a to b do

s:=s+i;

writeln(s);

end.