Задача 2 Урок 14.2
Primary tabs
Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
program u142z2; var a: integer; procedure p1 (var x: integer); begin write('Vvedite chislo'); readln(x); end; begin p1(a); writeln(a); readln (); end.
- Log in to post comments
- 202 reads