Предмет: Информатика,
автор: 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.
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
Вот так будет работать
Автор ответа:
0
q := PosEx('.', str, q + 3 ); что значит эта строка?
Автор ответа:
0
спасибо за помощь ))
Похожие вопросы
Предмет: Алгебра,
автор: bassamka1510
Предмет: Геометрия,
автор: orestmarcenkoartemov
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: bebelinda1