Процедура, Паскаль

[Абай]

Процедура, Паскаль

Описать функцию SumRange(A, B) целого типа, находящую сумму всех целых чисел от A до B включительно (A и B — целые). Если A > B, то функция возвращает 0. С помощью этой функции найти суммы чисел от A до B и от B до C, если даны числа A, B, C.

 

[Vladimir_S]

Описать функцию SumRange(A, B) целого типа, находящую сумму всех целых чисел от A до B включительно (A и B — целые). Если A > B, то функция возвращает 0. С помощью этой функции найти суммы чисел от A до B и от B до C, если даны числа A, B, C.

VAR
 A,B:Integer;

Function SumRange(As,Bs:Integer):LongInt;
Var
 SR:Longint;
 i:Integer;
Begin
 SR:=0;
 For i:=As to Bs do Inc(SR,i);
 SumRange:=SR;
End;

BEGIN
 Repeat
  Writeln('Enter A=0 and B=0 to quit');
  Write('A= ');
  Readln(A);
  Write('B= ');
  Readln(B);
  Writeln('Sum= ',SumRange(A,B));
 Until (A=0) and (B=0);
END.