Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
usereldoc9857
20.07.2019 05:00 •
Информатика
Заменить все буквы, стоящие после "_" на такие же, но заглавные. паскаль
Показать ответ
Ответ:
Максим7891
13.08.2020 19:54
Вроде так работает
var
s:string;
i:integer;
begin
readln(s);
write(s[1]);
for i:=2 to length(s) do if s[i-1] = '_' then write(Upcase(s[i])) else write(trim(s[i])); //это в одну строчку с предыдущей
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
privetjakot
23.12.2020 22:35
Почему в Excel значение функции синуса 180 и 360 градусов неправильно высчитывается, а со значением синуса 90 и 270 градусов все в порядке?...
Маслинка174
23.12.2020 22:35
Приведи по 4 примера к Логическому умножению, логическому сложению, логическому отрицанию Информатика...
fjfnk
23.12.2020 22:34
Скласти програму, яка передбачала б введення послідовності символів та : Визначте, 10 найчастіше зустрічаємих послідовностей з N слів у тексті. N вказується користувачем....
otlichnikcom
21.04.2020 17:52
Определите значение переменной а после выполнения следующего фрагмента программы:a = 4for i in range(4):а += a...
aleksandrakova4
21.04.2020 17:52
1)Напишите программу, которая вводит три числа a, b и с, если а b, то программа находит сумму b+c. Если а=b, то программа печатает слово «Конец». Если а с, то находит...
kafdiana9
21.04.2020 17:52
Дано описание одного из этапов решения задач на компьютере. Проанализируй и определи, о каком эиапе идет речь в описании. Алгоритм записывается на одном из языков программирования...
Poolll
21.08.2019 03:30
Составьте программу для нахождения суммы всех натуральных трехзначных чисел, кратных 30...
matveysandors
21.08.2019 03:30
Алгоритм приготовления блюда винегрет...
BlackVaiNor
19.01.2021 21:09
Гироскопиялық датчик қандай қызмет атқарады...
s1cro
19.01.2021 21:08
Учні вели за температурою повітря протягом n днів та заносили дані у таблицю. Складіть програму для знаходження середньої температури повітря для цього проміжку часу....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
var
s:string;
i:integer;
begin
readln(s);
write(s[1]);
for i:=2 to length(s) do if s[i-1] = '_' then write(Upcase(s[i])) else write(trim(s[i])); //это в одну строчку с предыдущей
end.