Задача 2 Урок 14.2
Primary tabs
Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
var a, b, c: integer; procedure sum(q, w, e: integer); begin writeln(q + w + e); end; begin writeln('write 3 nums'); readln(a,b,c); sum(a,b,c); readln(); end.
Вывод консоли:
write 3 nums 1 2 3 6
- Log in to post comments
- 59 reads