Дан текст. заменить в нём каждую точку многоточием.
моё решение:
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.
М | Теги ! |
uses crt;
var
s:string;
i:byte;
begin
clrscr;
readln(s);
i:=0;
while i<= length(s) do begin
inc(i);
if s[i]='.' then begin
insert('..',s,i);
inc(i,2)
end;
end;
writeln(s);
readkey
end.