Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
57
Добавлен:
10.05.2014
Размер:
816 б
Скачать
program str2;
const
ToReplace = '.';
ReplaceWith = '...';
N = 20;
type
str_input = string[N];
mystr = string[N*3];
procedure Input(var Str:mystr);
var
Str_in:str_input;
begin
write('‚ўҐ¤ЁвҐ Ёб室­го бва®Єг (­Ґ Ў®«ҐҐ ',N,' бЁ¬ў®«®ў): ');
readln(Str_in);
Str:=Str_in;
end;
procedure Replace(var Str:mystr);
var
TempStr:mystr;
begin
TempStr:='';
while pos(ToReplace,Str)<>0 do
begin
TempStr:=TempStr+copy(Str,1,pos(ToReplace,Str)-length(ToReplace)) +ReplaceWith;
delete(Str,1,pos(ToReplace,Str));
end;
Str:=TempStr+Str;
end;
procedure Output(Str:mystr);
begin
writeln('Џ®«г祭­ п бва®Є : ',Str);
end;
var
Str:mystr;
begin
Input(Str);{ўў®¤ Ёб室­®© бва®ЄЁ}
Replace(Str);{§ ¬Ґ­  "." ­  "..."}
Output(Str);{ўлў®¤ Ї®«г祭­®© бва®ЄЁ}
end.
Соседние файлы в папке 05