Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
test08
//fpc 3.0.4 program test08; {type proc=procedure(var x:integer);} var v : integer ; procedure bol(var a:integer) ; begin a:=a+1; end ; {procedure p(var x:integer; px:proc); begin px(x) ; end;} begin v:=10; write(v:3) ; { p(v,bol) ;} bol(v) ; write(v:3); writeln end.
run
|
edit
|
history
|
help
0
Lista
Урок 3 задачи 1, 2 и расширение задачи 2
Pokazivaci, ulancane liste
Main-main
b1
test26
pi
6
2 5 8
test07