Функция вычисляет сумму целых чисел, не превышающих заданного пользователем числа N.
Решение:
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program functions_2;
uses crt; var n: integer; function Sum(m: integer): integer; var i, S: integer; begin S:=0; for i:=1 to m do S:=S+i; Sum:=S; end; begin clrscr; write(‘N > ‘); read(n); write(‘Cумма чисел от 1 до ‘, n, ‘ = ‘, Sum(n)); readkey; end. |