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

Question

Информатика

Юлиания

11 октября, 02:06

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

+1

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