12 lines
309 B
ObjectPascal
12 lines
309 B
ObjectPascal
// Ñòðîêè ôèêñèðîâàííîé äëèíû. Äëèíà íå ìîæåò áûòü áîëüøå 255
|
|
var
|
|
s: string[9];
|
|
s1: shortstring; // shortstring = string[255]
|
|
slong: string;
|
|
|
|
begin
|
|
slong := 'PascalABC.NET';
|
|
writeln('Còðîêà ïðîèçâîëüíîé äëèíû: ',slong);
|
|
s := slong;
|
|
writeln('Còðîêà ôèêñèðîâàííîé äëèíû îáðåçàåòñÿ: ',s);
|
|
end. |