eg5_15.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program eg5_15(input,output);
 procedure r;
  var
    ch:char;
  begin
    read(ch);
    write(ch);
    if ch<>'.'
      then r;
    write(ch);
  end;
 begin
  writeln('eg5.15');
  r;
 end.