22 апреля, 12:24

Составить программу, удваивающую буквы "а" и "б" в слове. pascal

+3
Ответы (1)
  1. 22 апреля, 12:36
    0
    var s:string;

    i:integer;

    begin

    write ('Введите строку: ');

    readln (s);

    for i:=length (s) downto 1 do

    begin

    if s[i]='а' then insert ('а', s, i);

    if s[i]='б' then insert ('б', s, i);

    if s[i]='А' then insert ('А', s, i);

    if s[i]='Б' then insert ('Б', s, i);

    end;

    writeln (s);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Составить программу, удваивающую буквы "а" и "б" в слове. pascal ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Новые вопросы по информатике
В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке: Я к вам пишу - чего же боле? Что я могу еще сказать?
Ответы (2)
Какие конструкции (служебные слова) необходимо использовать для организации циклов с известным числом повторений у исполнителя "Робот" системы Кумир?
Ответы (1)
При покупке некоего устройства Вася учитывал характеристики кэш-памяти, оперативной памяти и графического контроллера. Что покупал Вася?
Ответы (1)
Информационное сообщение объемом 950 битов состоит из 190 символов. Каков информационный вес каждого символа этого сообщения?
Ответы (1)
К какому типу по способу представления относится нотный стан? Графическая информационная модель Словесная информационная модель Информационная модель, представленная в виде диаграммы Табличная информационная модель Один вариант ответа
Ответы (1)