Ответы и объяснения

Лучший Ответ!
2014-02-24T10:52:06+00:00
Var
 str:string;
 k,i:integer;
begin
 k:=1;
 readln(str);
 for i:=1 to Length(str) do
begin
 if str[i]=' ' then
  k:=i;
end;
 writeln(Length(str)-k);
end.