Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 4 лаб. Строки / Program2
.pas uses crt;
var s: string;
i: byte;
begin
clrscr;
write('Исходная строка: ');
readln(s);
i:=1;
repeat
if copy(s,i,2)=' ' then //99 jj
s:= copy(s,1,i)+copy(s,i+2,length(s)-(i+1))
else i:=i+1
until (i>length(s));
writeln('Обработанная строка: ',s);
readln;
end.
var s: string;
i: byte;
begin
clrscr;
write('Исходная строка: ');
readln(s);
i:=1;
repeat
if copy(s,i,2)=' ' then //99 jj
s:= copy(s,1,i)+copy(s,i+2,length(s)-(i+1))
else i:=i+1
until (i>length(s));
writeln('Обработанная строка: ',s);
readln;
end.
Соседние файлы в папке 4 лаб. Строки