Задача 3 урок 14
Primary tabs
Задача 3 урок 14
Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
var a, b: integer; procedure sum(x: integer; var z: integer); begin z := x; end; begin write('Введите число: '); readln(a); sum(a, b); writeln(b); readln(); end.
- Log in to post comments
- 610 reads