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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
program qq;
 
var
  a: string;
  i: integer;
 
begin
  read(a);
  for i := 1 to length(a) do 
    if a[i] in ['A'..'Z'] then 
    a[i] := chr(ord(a[i]) + 32);
  writeln(a);
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.308 из 5
Похожие ответы