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