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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.