Question

Паскаль.
Дана строка, содержащая слова, разделенные одним пробелом. Напечатать все слова, отличные от последнего слова.

Answer 1

var
  s: string;

begin
  readln(s);
  write(s.Split(' ')[0], ' ');
  foreach s1: string in s.Split(' ') do
    if (s1 <> s.Split(' ')[0]) then
      write(s1, ' ');
end.