Написать программу в Pascal.ABCВывестипредпоследнее слово во введенной пользователем...

Question

Написать программу в Pascal.ABC
Вывести
предпоследнее слово во введенной пользователем строке.

Answer 1

Program baz;
var
s,s2:string;
i,n:integer;
begin
readln(s);
i:=length(s);
n:=0;
while n=0 do
begin
if s[i]=' ' then 
n:=i;
i:=i-1;
end;
i:=length(s);
s1:=copy(s,n+1,i-n-1);                //i-n-1 вот тут уберете -1 , если слово обрежется
writeln(s1);
end;