Question

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

Answer 1

var

 s: string;

 i: Integer;

begin

 Read(s);

 for i := 1 to length(s) do

   s[i] := lowercase(s[i]);

 WriteLn(s)

end.