12 lines
175 B
ObjectPascal
12 lines
175 B
ObjectPascal
// Òàáëèöà ñèìâîëîâ è èõ êîäîâ
|
|
var i: integer;
|
|
begin
|
|
cls;
|
|
for i:=32 to 255 do
|
|
begin
|
|
write(i:4,chr(i):2,' ');
|
|
if i mod 8 = 7 then writeln;
|
|
end;
|
|
readln;
|
|
end.
|