23 lines
494 B
ObjectPascal
23 lines
494 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.
|