17 lines
367 B
ObjectPascal
17 lines
367 B
ObjectPascal
var i:integer;
|
|
e:System.TypeCode;
|
|
begin
|
|
e:=System.TypeCode.Int64;
|
|
i:=integer(System.TypeCode.Int64);
|
|
writeln(i);
|
|
writeln(integer(System.TypeCode.Int64));
|
|
writeln(integer(e));
|
|
e:=System.TypeCode(i);
|
|
writeln(e);
|
|
writeln(System.TypeCode(11));
|
|
writeln(System.TypeCode(i));
|
|
//case integer(e) of
|
|
// System.TypeCode.Int64:;
|
|
//end;
|
|
readln;
|
|
end. |