12 lines
251 B
ObjectPascal
12 lines
251 B
ObjectPascal
// Îïåðàòîð âûáîðà
|
|
var c: char;
|
|
|
|
begin
|
|
writeln('Ââåäèòå ñèìâîë: ');
|
|
readln(c);
|
|
case c of
|
|
'0'..'9': writeln('Ýòî öèôðà');
|
|
'a'..'z','A'..'Z': writeln('Ýòî àíãëèéñêàÿ áóêâà');
|
|
'à'..'ÿ','À'..'ß': writeln('Ýòî ðóññêàÿ áóêâà');
|
|
end;
|
|
end. |