Вывести в обратном порядке последнее слово строки. Подсчитать количество букв в нем.

Question

Вывести в обратном порядке последнее слово строки. Подсчитать количество букв в нем.

Answer 1

На Паскаль (для Delphi и Lazarus, надо подкорректировать для PascalABC):
const
  V=255;
type L= array [1..V] of char;
var
  S: string;
  A: L;
  f,i: integer;
begin
  read(S);
  f:=0;
  for i:=1 to Length(S) do
  begin
    if S[i]<>' ' then begin f:=f+1; A[f]:=S[i] end
    else f:=0;
  end;
  for i:=f downto 1 do write(A[i]);
  writeln(' ',f);
  readln;
  readln
end.

Comments

спасибо, выручил!