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