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

Question

Информатика

Кантидиан

8 июня, 13:13

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

+4

Ответы (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.