Технический форум - Процедура, Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Процедура, Паскаль (http://www.tehnari.ru/f41/t53086/)

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

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

Цитата:

Сообщение от Абай (Сообщение 536858)

Код:

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.