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