Question

Написать программу в pascal. найдите сумму всех целых чисел [a; b]заранее .

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.

Пример
8 42
S=875

Answer 2

Var
   a,b:integer;
   S:real;
Begin
S:=0;
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
For b:= a to b do
    S:=S+b;
WriteLn('S = ',S);
End.