моё решение:
program z1;
uses crt;
var
s:string[100]; s1,s2: string[10]; i,p: integer;
begin
clrscr;
write ('введите текст: ');
readln (s);
for i:=1 to 5 do
begin
p:=pos('.',s);
s1:=copy(s,1,p-1)+'...'+copy(s,p+1,length(s));
end;
writeln (s1);
readln;
end.
М | Теги ! |
У меня заменяет только первую точку, а остальные нет.
Подскажите ПОЖ-ТА!!! что нужно дописать чтоб КАЖДУЮ точку он заменял многоточием.
Сообщение отредактировано: klem4 -