Даны два натуральных числа а и б требуется определить сумму чисел от а до б

Question

Даны два натуральных числа а и б требуется определить сумму чисел от а до б

Answer 1

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

begin
  var a,b:integer;
  Read(a,b);
  Writeln('S=',Range(a,b).Sum)
end.

Пример
6 32
S=513

Comments

А почему не так?))

---

Begin
WriteLn('S = ',Range(ReadInteger('a = '),ReadInteger('b = ')).Sum)
End.

Answer 2

Var
  a, b, s, i: integer;

begin
  readln(a);
  readln(b);
  for i := a to b do
  begin
    s := s + i;
  end;
  writeln(s);
end.

Comments

i тут зачем?) for b:= a to b do S:=S+b;