Предмет: Информатика, автор: guileastos

дана строка. Каждую точку замените многоточием (т.е тремя точками). В чем беда? или совсем не правильно?
var str : string;
q:integer;
k:string;
begin
writeln ('введите строку');
readln (str);k:='..';
q:=pos('.', str );
while q<>0 do
begin
insert (str,k, q  );
q:=pos('.', str   );
end; 
writeln (str);
end.

Ответы

Автор ответа: Аноним
0
var
  str: string;
  q: integer;
  k: string;

begin
  writeln('введите строку');
  readln(str);
  k := '..';
  q := pos('.', str );
  while q <> 0 do
  begin
    insert(k, str, q );
    q := PosEx('.', str, q + 3 );
  end;
  writeln(str);
end.

Автор ответа: Аноним
0
Вот так будет работать
Автор ответа: guileastos
0
q := PosEx('.', str, q + 3 ); что значит эта строка?
Автор ответа: guileastos
0
спасибо за помощь ))
Похожие вопросы
Предмет: Математика, автор: Аноним