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

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

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт