Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
exVariant
Program exVariant; uses variants; type color=(red,black,white); var v:variant; i:integer; r:real; c:color; as:ansistring; Begin i:=100; v:=i; writeln('Variant as Integer: ',v); r:=234.345; v:=r; writeln('Variant as real: ',v); c:=red; v:=c; writeln('Variant as Enumerated data: ',v); as:= 'I am an Ansistring'; v:=as; writeln('Variant as AnsiString:',v); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
08 for
считалочка05
nomer1
codigo
Номер подъезда и этажа по номеру квартиры, количеству этажей и квартир на этаже
Подсчёт количества единичных битов в десятичном числе от 0 до 15
test28
Tri
Prvi zadatak vezbe pokazivaci
5
Please log in to post a comment.