Pasqal

[Илья20]

Задача: найти и вывести последнее слово строки.

Найдите ошибки и напишите правильную программу, пожалуйста.

Код:

Var s,t:string;i,n,f:integer; 
begin 
readln (s); 
n:=length (s); 
for i:=1 to n do if s[i]=' ' then f:=i; 
t:=''; 
if s[n]=' ' then begin 
for i:=f+1 to n-1 do t:=t+s[i]; 
end 
else begin 
for i:=f+1 to n do t:=t+s[i]; 
end; 
writeln (t); 
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[digitalis]

Если написать правильную, то зачем в неправильной искать ошибки ? Бо "нелегкая это работа - из болота тащить бегемота". Правильная звучит так:

 Var 
  s,t:string;i,j,n,f:integer;
begin
readln (s);
n:=length (s);
f := 0 ;
for i:=n downto 1 do
  begin
    if (s[i]>' ') then
      begin f := 1 ; j := i end
    else
      if (f>0) then Break
  end ;
t := Copy (s,j,n-j+1) ;
writeln (t)
end.

[Аватар]

Pasqal <> PasCal

[digitalis]

он имел в виду : don Pasquale