ЗАДАНИЕ №3.

Написать программу, которая в введенной с клавиатуре строке преобразует строчные буквы русского алфавита в прописные (учтите, что функция Up Case с символами русского алфавита не работает).

Решение:

Program laba10;

Var

st: string[80];

len: integer;

i: integer;

begin

writeln (‘Введите строку и нажмите <Enter>’);

readln (st);

len:=Length (st);

for i:=1 to len do

case st[i] of

case st[i] of

‘a’..’z’:st[i]:=UpCase(st[i]);

end;

writeln (‘Строка преобразована к верному регистру:’);

writeln (st);

readln

end.