Решаем задачи Абрамян на Паскале. Proc 21

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

Решение:

program Proc21;

Function SumRange(A,B:Integer):Integer;

var

i,TempSum:Integer;

begin

TempSum:=0;

For i:=A to B do

begin

TempSum:=TempSum + i;

end;

SumRange:=TempSum;

end;

var

A,B,C:Integer;

begin

Write('A :');

Readln(A);

Write('B :');

Readln(B);

Write('C :');

Readln(C);

Writeln(SumRange(A,B));

Writeln(SumRange(B,C));

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 21

Комментарии:

Добавить комментарий Отменить ответ