с клавиатуры вводят строку. Составить программу, которая удаляет из строки последнее слово
10-11 класс
|
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.
Другие вопросы из категории
Читайте также
и пробелом, вводится с клавиатуры.
Помогите, пожалуйста.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
буквы "о" на буквы "и", а буквы "и"- на буквы "о".
затем поменять местами символы A и Y, то полученная последовательность и будет паролем. Определите пароль
суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием