profile
Опубликовано 4 года назад по предмету Информатика от pavelmorua

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

  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.
Самые новые вопросы