var s1,s2:string; i:integer; begin writeln('Введите строку:'); readln(s1); s2:=''; for i:=1 to length(s1) do if s1[i]='И' then s2:=s2 'ИИ' else s2:=s2 s1[i]; writeln(s2); end.
Пример: Введите строку: НАПИШИТЕ ПРОГРАММУ ДУБЛИРУЮЩУЮ СИМВОЛЫ НАПИИШИИТЕ ПРОГРАММУ ДУБЛИИРУЮЩУЮ СИИМВОЛЫ
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
