С клавиатуры вводят строку. Составить программу, которая удаляет из строки последнее слово.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
