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