Предмет: Информатика,
автор: Tatyana797
с клавиатуры вводят строку. Составить программу, которая удаляет из строки последнее слово
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: Kulaginilay24
Предмет: История,
автор: aikoookiii
Предмет: Биология,
автор: galinashundrinacom
Предмет: Алгебра,
автор: iriska130392