Нужно задать программу, которая удаляет три символа в начале слов, оканчивающихся на th.

[Аватар]

cм #9 и хотя бы чуть-чуть подумай

[Оля11]

Не могу додумать У Сергея довольно сложная программа, мне нужно полегче с моими данными.Без этих операторов: sword, answer

[Аватар]

То не операторы, а переменные. Такие же как и s

[Оля11]

То есть их можно заменить на буквы, допустим, а и b?

[Аватар]

а и b больше нравятся? Ну меняй, так уж и быть Но это bad, bad, bad ...

[newerow1989]

Из поста #10:

var s:string;
 l,i:integer;
 begin
 readln(s);
 writeln(s);
 L := Length(s);

	
	

			
				Будут. Delete уменьшает длину строки.
			
		
 for i := 3 to Length(s) do//здесь исправил, ошибок не будет!!!
 begin
 If ((s[i]=' ') and (s[i-1]='h') and (s[i-2]='t'))
 or ((s[i]='h') and (s[i-1]='t') ) then
 Delete(s,1,3);
 End;
 Writeln(s); {выводим результат}
 Readln;
 End.

Это только для одного слова!

[Аватар]

здесь исправил, ошибок не будет

Будут. Delete уменьшает длину строки. Тогда уж цикл с конца

[newerow1989]

Подправил:

var s:string;
    i,a:integer;
begin
   readln(s);
   writeln(s);
   a:=1;
   i:=3;
   Repeat
      If ((s[i]=' ') and (s[i-1]='h') and (s[i-2]='t'))
         or ((i=Length(s)) and (s[i]='h') and (s[i-1]='t')) then
      begin
         i:=i-3;
         Delete(s,a,3);
      end;
      If (i>0) and (i<=Length(s)) and (s[i]=' ') then
         a:=i+1;
      i:=i+1;
   Until i>Length(s);
   Writeln(s); {выводим результат}
   Readln;
end.

Сойдет?

[Вадим Мошев]

Оля11, оформляйте ваш код в соответствии с требованиями: http://www.programmersforum.ru/showp...23&postcount=4