Proc21. Описать функцию SumRange($$A$$, $$B$$) целого типа, находящую сумму всех целых чисел от $$A$$ до $$B$$ включительно ($$A$$ и $$B$$ — целые). Если $$A > B$$, то функция возвращает 0. С помощью этой функции найти суммы чисел от $$A$$ до $$B$$ и от $$B$$ до $$C$$, если даны числа $$A, B, C$$.
Решение Дмитрий:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
алг Proc21 (арг цел A, B, C, рез цел Sab, Sbc) нач Sab:=SumRange(A, B) Sbc:=SumRange(B, C) кон алг цел SumRange (арг цел A, B) нач цел S,i S:=0 нц для i от A до B S:=S+i кц знач:=S кон |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: