25 lines
423 B
ObjectPascal
25 lines
423 B
ObjectPascal
// Ôóíêöèè UpCase LowCase UpperCase LowerCase
|
|
var
|
|
c: char;
|
|
s: string;
|
|
begin
|
|
cls;
|
|
for c:='a' to 'z' do
|
|
write(UpCase(c));
|
|
writeln;
|
|
for c:='A' to 'Z' do
|
|
write(LowCase(c));
|
|
writeln;
|
|
for c:='À' to 'ß' do
|
|
write(UpCase(c));
|
|
writeln;
|
|
for c:='à' to 'ÿ' do
|
|
write(LowCase(c));
|
|
writeln;
|
|
s:='Ïàïà ó Âàñè ñèë¸í â ìàòåìàòèêå';
|
|
s:=UpperCase(s);
|
|
writeln(s);
|
|
s:=LowerCase(s);
|
|
writeln(s);
|
|
end.
|