Var s,s1,s2:string; i:integer; begin writeln(Введите строку:); readln(s); s1:=s; while pos( ,s1)>0 do delete(s1,pos( ,s1),1); writeln(Строка без пробелов:); writeln(s1); s2:=; for i:=1 to length(s1) do if s1[i]=. then s2:=s2+. else s2:=s2+s1[i]; writeln(Строка с пробелами после ".":); writeln(s2); end.
Пример: Введите строку: 1. 2. 3. 4. 5. Вышел зайчик. Погулять. Строка без пробелов: 1.2.3.4.5.Вышелзайчик.Погулять. Строка с пробелами после ".": 1. 2. 3. 4. 5. Вышелзайчик. Погулять.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
