Question

Удалить в тексте, все слова которого разделены одним пробелом, первое слово, если в нём больше, чем 7 букв. (Школьный pascal)

Answer 1

Var
s:string;
begin
readln(s);
if pos(' ',s)>8 then delete(s,1,pos(' ',s));
writeln(s);
end.

Answer 2

Удаление слов, разделенных одним пробелом, и первого слова, если оно содержит более 7 букв

Для удаления слов, разделенных одним пробелом, и первого слова, если оно содержит более 7 букв, в тексте на языке Pascal, можно использовать следующий код:

program RemoveWords;

uses
  SysUtils;

function RemoveWordsWithSpace(text: string): string;
var
  words: TStringDynArray;
  i: Integer;
begin
  words := SplitString(text, ' ');
  if Length(words) > 0 then
  begin
    if Length(words[0]) > 7 then
      Delete(words, 0, 1);
    Result := JoinString(words, ' ');
  end
  else
    Result := '';
end;

var
  inputText, outputText: string;
begin
  inputText := 'Школьный pascal';
  outputText := RemoveWordsWithSpace(inputText);
  WriteLn(outputText);
end.

В этом примере мы объявляем функцию `RemoveWordsWithSpace`, которая принимает текст в качестве аргумента и возвращает текст без слов, разделенных одним пробелом, и без первого слова, если оно содержит более 7 букв. Функция использует функции `SplitString` и `JoinString` из модуля `SysUtils`, чтобы разделить текст на слова и объединить их обратно в строку.

В основной части программы мы задаем входной текст `'Школьный pascal'`, вызываем функцию `RemoveWordsWithSpace` и выводим результат на экран.

Примечание: Данный код является примером и может быть адаптирован под конкретные требования и условия вашей задачи.