Pascal;
Дан текст, слова которого отделяются друг от друга пробелами. Удалить из тек-ста слова, которые начинаются и заканчиваются одной и той же буквой.
Распечатать исходный и полученный тексты.
Вот сама задача, только там не работает delete.
var
s,s2, a, b: string;
i: integer;
begin
writeln('Введите текст');
readln(b);
s := b;
writeLn;
writeln('Удалённые слова: ');
for i := 1 to length(s) do
begin
if s[i] <> ' ' then
a := a + s[i];
if (s[i] = ' ') or (i = length(s)) then
begin
if a[1] = a[length(a)] then
writeln(a);
a := '';
delete(s,i,length(a));
end;
end;
WriteLn;
WriteLn('Исходный');
WriteLn(b);
Writeln('Изменённый текст');
WriteLn(s);
end.
Ответы
Ответ дал:
0
Заменить участок текста:
writeln('Удалённые слова: ');
i:=1; b:='';
repeat
if s[i] <> ' ' then
a := a + s[i];
if (s[i] = ' ') or (i = length(s)) then
begin
if a[1] = a[length(a)] then writeln(a)
else
begin
b:=b+a;
if i<>length(s) then b:=b+' ';
end;
a:='';
end;
i:=i+1;
until i>length(s);
WriteLn;
WriteLn('Исходный');
WriteLn(s);
Writeln('Изменённый текст');
WriteLn(b);
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад