Написать программу нахождения суммы чисел от 1 до n, используя процедуру и функцию
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var a, b, c: integer; procedure sum(x, i: integer; var z: integer); begin for i:=1 to x do z:=z+i; end; begin write('Введите число: '); readln(a); sum(a, b, c); writeln(c); end. |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
var b, d, c: integer; function sum(m, i,z: integer):integer; begin for i:=1 to m do z:=z+i; result:=z; end; begin write('Введите число: '); readln(b); writeln(sum(b,d,c)); end. |