Преобразовать исходную строку, заменив в ней каждую точку многоточием (т.е. тремя...

Question

Преобразовать исходную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).

Comments

var s1,s2:string; n,m:byte; begin readln(s1); for n:=1 to length(s1) do begin s2:=s2+s1[n]; if s1[n]='.' then begin s2:=s2+'..'; m:=m+2; end; end; writeln(s2); end.

---

в чем ошибка. Вроде все правильно, а компилятор ошибку находит

---

все верно, только зачем эта строчка не понятно m:=m+2;

Answer 1

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.
Вот так