var s:string; i:integer; begin writeln('Введите строку:'); readln(s); repeat i:=pos('е',s); if i>0 then begin delete(s,i,1); insert('и',s,i); end; until i=0; writeln(s); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
