rabbit.pas

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

PROGRAM  PR_2(INPUT,OUTPUT);
  VAR
    x ,y: Integer ;
    a ,b: Integer ;
  BEGIN
    Readln( a  ,b ) ;
    x:= Round(( 4 * a - b)/2  ) ;
    y:= a - x ;
    Writeln( x : 8 ,y : 8 ) 
  END .