blob: eab3a092317cce59a3e3b074a939ba2b5ff2d8d9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
var
S :String;
begin
S := 'H';
case S of
'HH','H': WriteLn('1');
end;
S := 'HH';
case S of
'HH': WriteLn('2');
end;
case S of
'HH','H': WriteLn('3');
end;
case S of
'H','HH': WriteLn('4');
end;
S := 'A';
case S of
'HH': WriteLn('2');
end;
case S of
'HH','H': WriteLn('3');
end;
case S of
'H','HH': WriteLn('4');
end;
end.
|
