[sasha.belyi]

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

Код:

program stroka;
uses crt;
Var s1,s2:string;i:integer;
Begin
clrscr;
Writeln ('‚Введите строку: ');
read (s1);
for i:=1 to length(s1) do begin
if s1[i]='.' then
insert ('...',s1,i);
end;
writeln (s1);
Readkey;
end.

Админ: Пользуемся тегами для оформления кода!

Почему с помощью этой программы не получается ничего?

Напишите пожалуйста подобную программу, чтобы она могла заменять точки в случае, если в исходной строке только точки, точки в начале, в конце и конечно же в середине строки. Буду очень благодарен!