var s1,s2,s:string; i:integer; begin writeln('Введите две строки:'); readln(s1); readln(s2); s:=''; for i:=1 to length(s1) do if s1[i]<>'а' then s:=s s1[i] else s:=s 'A'; s:=s ';'; for i:=1 to length(s2) do if s2[i]<>'а' then s:=s s2[i] else s:=s 'A'; writeln(s); end.
Пример: Введите две строки: Ужасно умоляю хоть какие-нибудь находки! УжAсно умоляю;хоть кAкие-нибудь нAходки!
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
