23 lines
434 B
ObjectPascal
23 lines
434 B
ObjectPascal
// Èñïîëüçîâàíèå ñòàíäàðòíûõ ôóíêöèé UpperCase, LowerCase
|
|
var c: char;
|
|
|
|
begin
|
|
for c:='a' to 'z' do
|
|
write(UpperCase(c));
|
|
writeln;
|
|
for c:='A' to 'Z' do
|
|
write(LowerCase(c));
|
|
writeln;
|
|
for c:='À' to 'ß' do
|
|
write(UpperCase(c));
|
|
writeln;
|
|
for c:='à' to 'ÿ' do
|
|
write(LowerCase(c));
|
|
writeln;
|
|
var s := 'Ïàïà ó Âàñè ñèë¸í â ìàòåìàòèêå';
|
|
s := UpperCase(s);
|
|
writeln(s);
|
|
s := LowerCase(s);
|
|
writeln(s);
|
|
end.
|