Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
muharadjab
13.08.2021 10:41 •
Информатика
Дана строка, состоящая из латинских строчных букв, заменить их аналогичными прописными буквами. pascal abc
Показать ответ
Ответ:
Поля5021
06.07.2020 18:57
Var s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then write(chr(ord(s[i])+ord('A')-ord('a')));
end.
0,0
(0 оценок)
Ответ:
lilyamkrtchyan1
06.07.2020 18:57
Var
str : string;
begin
write('Введите строку: ');
readln(str);
writeln('Результат: ', str.ToUpper);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
LIZA555666777
30.12.2022 03:46
Рисунок размером 192 на 288 пиксилей закодирован с палитрой 16 цветов.сколько килобайт занимает в памяти рисунок без учёта сжатия?...
volapaevowjb4p
21.12.2020 22:01
Составь программу, на языке программирования Паскаль, выполняющую условие если a больше 30, то с=a+20, иначе с=a*45. Вывод с...
eugenetroyan
24.09.2020 04:25
Сцикла for найти сумму чисел, кратных 3 из диапазона от 1 до 35...
danil782
11.12.2021 11:13
Пешеход за 4 часа 5 км, рассчитайте скорость пешехода по данной с выводом и вводом данных с экрана монитора...
ulyanooo
11.12.2021 11:13
Написать программу в паскаль(с множественного выбора), которая получает день и номер месяца и определяет дату следующего дня...
vikaoskina1
24.04.2023 12:21
Подобрать 10 однокоренных слов к словам: свобода, терять, друг....
MasterHacker
10.01.2022 13:52
Объясните понятия. община- ремесло- товарный обмен-...
DASHA56789111
10.01.2022 13:52
Сумма двух чисел равна 25.одно число больше другого в 4 раза. найдите эти числа....
Lizavladimir07
10.01.2022 13:52
Найдите число, квадрат которого равен 923187456...
liza901283
10.01.2022 13:52
Мен оқуғақалай келдім тақырыбында озі туралы 6 -7 сойлемнен тұруы керек...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then write(chr(ord(s[i])+ord('A')-ord('a')));
end.
str : string;
begin
write('Введите строку: ');
readln(str);
writeln('Результат: ', str.ToUpper);
end.