Дана строка. Каждую точку замените многоточием (т. е тремя точками). В чем беда? или совсем не правильно?

var str : string;

q:integer;

k:string;

begin

writeln ('введите строку') ;

readln (str) ; k:=' ... ';

q:=pos ('.', str) ;

while q0 do

begin

insert (str, k, q) ;

q:=pos ('.', str) ;

end;

writeln (str) ;

end.

Question

Информатика

Аксюха

21 ноября, 13:34

Дана строка. Каждую точку замените многоточием (т. е тремя точками). В чем беда? или совсем не правильно?

var str : string;

q:integer;

k:string;

begin

writeln ('введите строку') ;

readln (str) ; k:=' ... ';

q:=pos ('.', str) ;

while q0 do

begin

insert (str, k, q) ;

q:=pos ('.', str) ;

end;

writeln (str) ;

end.

+5

Ответы (1)

Знаете ответ?

Изяслав · Answer 1

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.