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

Question

Евстафий

28 июня, 10:46

+3

Ответы (1)

Знаете ответ на вопрос?

Машуха · 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.