Question

Разработайте программу по преобразованию символов строки в верхний регистр (из введенного слова прописными буквами выводит его же заглавными). Результат выведите на экран монитора.

Answer 1

var little, text, big:string;

i, j:integer;

begin

readln(text);

little := 'йцукенгшщзхфывапролджэячсмитьбю';

big := 'ЙЦУКЕНГШЩЗХФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';

for i:=1 to text.length do

for j:=1 to little.length do

if text[i] = little[j] then

text[i] := big[j] ;

write(text);

end.