Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gavno001
27.11.2020 17:08 •
Информатика
1. составьте программу, которая во введенном с клави¬атуры слове заменит букву «а» на букву «и» и, наоборот, букву «и» на букву «а».
Показать ответ
Ответ:
starpuckstarpuck
15.07.2020 20:59
var
s:string;
i:integer;
begin
writeln('Введи строку:');
readln(s);
for i:=1 to length(s) do
if (s[i]='А')then s[i]:='И' else
if (s[i]='а')then s[i]:='и' else
if (s[i]='И')then s[i]:='А' else
if (s[i]='и')then s[i]:='а';
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
лох252
29.07.2022 11:16
Pascal Человек пьет ежедневно молоко по одному стакану (0,2 л). Начал он с понедельника. В воскресенье он выпивает 2 стакана. На какой день он суммарно выпьет n литров...
olga14081
30.03.2023 09:51
Выясните лучший результат в соревнованиях по плаванию для n спортсменов и фамилию этого спортсмена. написать программу в хотя бы идею...
Кира3611
22.05.2022 19:02
Имеются гири весом 100, 300 и 1000 грамм. как наименьшим числом гирь этого набора можно составить вес в м грамм (м кратно 100). указать вес каждой из используемых для...
Roth999
22.05.2022 19:02
Пользователь вводит четырёхзначное число. в нём меняются местами тысячи с сотнями и десятки с единицами. найти сумму исходного числа и нового полученного числа. (например:...
игорёк1234567890
22.05.2022 19:02
Коднобайтовым кодовым таблицам для букв нельзя отнести: mac; iso; unicode...
ден1019
24.11.2021 02:15
Определите стоимость машины, если митсубиси - 119 млн шевролет - 40 млн порше - 113 млн москвич - 27 млн ламбаргини 22 млн сайер - ?...
Ali0429
18.10.2020 12:45
Примеры компьютеров в любых сферах человеческой деятельности...
жорж78
18.10.2020 12:45
Определите стоимость машины, если митсубиши - 119 млн шевролет - 40 млн порше - 113 млн москвич - 27 млн ламбаргини 22 млн сайен - ? подсказка: 3 алфавит...
Sve123TA1
13.12.2020 20:38
Ввод двух чисел их умножение и вывод полученного результата составить блок-схему...
FairTail
21.09.2022 10:32
Какие это языки программирования? 1. echo вы находитесь на сайте .$_server[ http_host ]; 2. alert ( hello? ); document.write( hello! ); 3. if [8,16,32].include? (val)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s:string;
i:integer;
begin
writeln('Введи строку:');
readln(s);
for i:=1 to length(s) do
if (s[i]='А')then s[i]:='И' else
if (s[i]='а')then s[i]:='и' else
if (s[i]='И')then s[i]:='А' else
if (s[i]='и')then s[i]:='а';
writeln(s);
end.