Var s1,s2:string;n,m:byte; begin readln(s1); for n:=1 to length(s1) do begin s2:=s2 copy(s1,n,1); if copy(s1,n,1)='.' then begin s2:=s2 '..'; end; end; writeln(s2); end. Вот так
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
