Цитата:
Сообщение от Абай
Описать функцию 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.