С клавиатуры вводят строку. Составить программу, которая удаляет из строки последнее слово
С клавиатуры вводят строку. Составить программу, которая удаляет из строки последнее слово
Гость
Ответ(ы) на вопрос:
Гостьprogram aaa;
var
a,i:longint;
s:string;
begin
read(s);
a:=0;
for i:=1 to length(s) do
if s[i]=' ' then a:=i; //находим последний пробел
delete(s,a,length(s)-a+1); //удаляем из строки последнее слово
writeln(s)
end.
Не нашли ответ?
Похожие вопросы