В строке S удалить последние буквы, таким образом, чтобы длина каждого слова в строке не превышала 4

@Sakurasara · Регистрация: 10.01.2010

Author24 — интернет-сервис помощи студентам

нужно срочно решить задачу:

Строки
В строке S удалить последние буквы, таким образом, чтобы длина каждого
слова в строке не превышала 4.

Добавлено через 7 часов 26 минут
У меня получается неправильно, но это то что вышло =)

Pascal

VAR
  S_osn, S, S1: string;
  Z: string;
  p, pos1: integer;
  
BEGIN
  S_osn:='Good morning, starlight! Earth says - Hello!';
  writeln ('Строка S_osn: ', S_osn);
  S:=copy (S_osn, 1, length(S_osn));
 
begin
  z:='';
  for p:=1 to length(S) do begin
  pos1:=Pos(' ',S);
  s1:=copy(s,1,pos1-1);
  delete(s,1,pos1);
  if length(s1) > 4 then begin
  delete(s1,5,length(s1));
  z:= z+s1+' ';
  end;
end;
end;
writeln ('строка Z: ', Z);
END.

а ответ у меня такой получается:
строка Z: morn star Eart Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell Hell

а должен быт таким:
результирующая строка: Good morn star Eart says - Hell

@Inadequate · 26.01.2010, 01:42

Pascal

var
  s:string;
  i,c:integer;
begin
  s:='Good morning, starlight! Earth says - Hello!';
  c:=0;
  i:=1;
  repeat
    if s[i]=' ' then
      c:=0
    else
      inc(c);
    if (s[i]<>' ') and (c>4) then
      delete(s,i,1)
    else
      Inc(i)
  until
    i>Length(s);
  writeln('Result: ',S)
end.

@Sakurasara · 26.01.2010, 01:57 **[ТС]**

спасибо большое!!! =) все прекрасно работает и я даже поняла =)

@Sakurasara 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 21
	26.01.2010, 01:57 [ТС]	3
	спасибо большое!!! =) все прекрасно работает и я даже поняла =) 0