UVa OJ 490-Rotating Sentences

简单题： 

 

{ Author:wzx961008 Problem:UVa 490-Rotating Sentences Verdict:Accepted Language:PASCAL Run Time:0.016s Submission Date:2011-01-15 01:15:14 } uses math; var s:string; i,num:longint; ans:array[1..100]of string; begin while not eof do begin readln(s); num:=max(num,length(s)); i:=0; repeat inc(i); if i>length(s) then if ans[i]<>'' then ans[i]:=' '+ans[i] else break else ans[i]:=s[i]+ans[i]; until false; end; for i:=1 to num do writeln(ans[i]); end.