С клавиатуры вводят строку. Составить программу, которая удаляет из строки последнее...

Question

С клавиатуры вводят строку. Составить программу, которая удаляет из строки последнее слово.

Answer 1

Var
  n,i: integer;
  s: string;
begin
  Readln(s);
  n:=length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  if i>0 then begin
    Delete(s,i,n-i+1);
    writeln(s)
  end;
end.

Comments

Просмотр идет от конца строки до первого встреченного пробела. Затем все, что находится правее этого пробела удаляется.