blob: 4322d8272cfb7ce2d563106512ec0ee3d17e6ab7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Type Char2=Array[1..2] of char;
var C1,C2:Char2;
st:string;
Procedure WriteLength(s:string; shouldbe: longint);
begin
WriteLn(s+' ',Length(s));
if length(s) <> shouldbe then
halt(1);
end;
begin
C1:=#0#65;
C2:=#66#0;
st:=C1+C2;
WriteLength(st,4); {BP:4; FP:1}
WriteLength(C1,2); {BP:2; FP:0}
WriteLength(C2,2); {BP:2; FP:1}
WriteLength(C1+C2,4); {BP:4; FP:1}
WriteLength(C2+C1,4); {BP:4; FP:1}
end.
|
