rostr2.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 12 行

var s:string;
    i:byte;
begin
write('s=');
readln(s);
 for i := 1 to length(s) do
  write(copy(s,1,i), ' ');
  writeln;
 for i := length(s) downto 1 do
  write(copy(s,length(s)-i+1,i),' ');
  readln;
  end.