Написать программу для вычисления суммы числел от A до B (где A<=B) Указание: переменная,...

Question

Написать программу для вычисления суммы числел от A до B (где A<=B)<br> Указание: переменная, которая будет накапливать сумму в начале должна быть равна нулю

Answer 1

1. Современное решение

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2('Введите через пробел a и b:');
  Writeln('S=',Range(a,b).Sum)
end.

Пример
Введите через пробел a и b: 5 18
S=161

2. К сожалению, все еще часто типичный для школы вариант

var
  a,b,i,s:integer;
 
begin
  Write('Введите через пробел a и b: ');
  Read(a,b);
  s:=0;
  for i:=a to b do
    s:=s+i;
  Writeln('S=',s)
end.