Question

составить алгоритм для нахождения суммы всех чисел на промежутке от a до b. a и b вводить клавиатурой

Answer 1

var a,b,i,r,s:longint; begin readln(a,b); s:=0; if a>b then begin r:=a;a:=b;b:=r;end; for i:=a to b do s:=s+i; writeln(s); end.