Если количество слов в тексте нечётное, то вывести среднее слово, если чётное, то вывести два средних слова - Pascal ABC

Формулировка задачи:

Дан текст, в которой слова разделены пробелами, а в конце стоит точка. Если количество слов в тексте нечётное - вывести среднее слово; если чётное - вывести 2 средних слова.

Код к задаче: «Если количество слов в тексте нечётное, то вывести среднее слово, если чётное, то вывести два средних слова - Pascal ABC»

textual
  j:=1; while GetWord(s,w,j) do Inc(n);
  j:=1; for i:=1 to n div 2 do GetWord(s,w,j);
  Write(w);
  if not Odd(n) then begin
    GetWord(s,w,j); Write(' ',w);
  end;

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ