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