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

Составить алгоритм для нахождения суммы всех чисел на промежутке от a до b. a и b вводить клавиатурой
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы