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