const
  maxn=100;
var
  n:integer;
  s:string;
procedure init;
begin
  readln(s);
  n:=length(s);
end;

procedure dfs(d:integer;ans:string);
begin
  if d>n then write(ans,' ')
  else
    begin
      dfs(d+1,ans);
      dfs(d+1,ans+s[d]);
    end;
end;

{==========main=========}
begin
init;
dfs(1,'');
end.

第一题。
输入:abc
输出:c b bc a ac ab abc

Tanks!那第二题该怎么做呢？（我不太明白题目的意思）

第二题应该只需要你输出错误的类型（例如没有E或符号问题）