Дана строка. Преобразовать в ней все прописные латинские буквы в строчные. (Pascal)

Question

Информатика

Елисей

4 октября, 00:32

Дана строка. Преобразовать в ней все прописные латинские буквы в строчные. (Pascal)

+2

Ответы (1)

Знаете ответ?

Сеня · Answer 1

Var

a:string;

i:integer;

begin

read (a) ;

for i:=1 to length (a) do

begin

Fif a[i] in ['a' ... 'z'] then a[i]:=UpCase (a[i])

end;

writeln (a) ;

end.