Дана строка. Преобразовать в ней все прописные латинские буквы в строчные.(Pascal)
10-11 класс
|
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.
Другие вопросы из категории
размером 2 килобита. Определите минимальное количество пакетов, которое
потребуется сформировать при передаче файла размером 18150 байтов.
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
Читайте также
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
"В символьном массивеиз 6 элементов, заданных с клавиатуры:
а) поменять все маленькие латинские буквы на большие;
б) найти кол-во запятых;
в) поменять все маленькие русские буквы на большие."
СРОЧНО!!! жду верного решения :) спасибо заранее
цепочек создается такими действиями: в очередную строку сначала записывается буква, чей порядковый номер в алфавите со-ответствует номеру строки , к ней справа дважды подряд приписывается предыдущая строка. Вот первые 4 строки, созданные по этому правилу: (1) A (2) BAA (3) CBAABAA (4) DCBAABAACBAABAA Латинский алфавит (для справки): ABCDEFGHIJKLMNOPQRSTUVWXYZ Запишите четыре символа подряд, стоящие в седьмой строке со 120-го по 123-е место (считая слева направо).
строка, содержащая не более двадцати латинских букв. Все вхождение «max» в ней заменить на «min» и «макс» на «мин». Подсчитать число таких замен." Буду очень благодарен, если кто поможет. прикрепляю так же образец, как именно должен выглядеть код программы. Заранее всем кто поможет огромное СПАСИБО!!!!!!!!!!