Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
AKPOTU
program exLocal; var a, b, c: integer; procedure display; var a, b, c: integer; begin (* local variables *) a := 10; b := 20; c := a + b; writeln('Winthin the procedure display'); writeln('value of a = ', a , ' b = ', b, ' and c = ', c); end; begin a:= 100; b:= 200; c:= a + b; writeln('Winthin the program exlocal'); writeln('value of a = ', a , ' b = ', b, ' and c = ', c); display(); end.
run
|
edit
|
history
|
help
0
Урок 3 задача на вывод 1 и 0 как функция целого
matriza
Mostrar un arreglo ( array )
Sorting
nomer4
города
Naloga 5: 9.2.2011
test29
P170808D
jhjj