36 lines
558 B
ObjectPascal
36 lines
558 B
ObjectPascal
|
|
uses crt;
|
|
|
|
var
|
|
i:integer;
|
|
c : char;
|
|
|
|
begin
|
|
i := 17;
|
|
case i of
|
|
0:writeln('zero');
|
|
1,2,3..5,6,7..8,9:writeln('low');
|
|
10,11,12..14,15,16..18:writeln('high');
|
|
30,31,32,33,34,35 : writeln(i);
|
|
-11,-10,-9 : writeln(i);
|
|
else
|
|
writeln('undefined');
|
|
end;
|
|
{case i of
|
|
4 : writeln('low');
|
|
5 : writeln('mid');
|
|
6,7 : writeln('high');
|
|
else
|
|
writeln('undefined');
|
|
end;}
|
|
c := 'k';
|
|
case c of
|
|
'a','b','c' : writeln('abc');
|
|
'i','j','k' : writeln('ijk');
|
|
'x','y','z' : writeln('xyz');
|
|
// #100:writeln(100);
|
|
else writeln('udefined');
|
|
end;
|
|
readkey;
|
|
end.
|