rabbit1.pas

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

PROGRAM  PR_2(INPUT,OUTPUT);
  VAR
    x ,y: Integer ;
    a ,b: Integer ;
  BEGIN
    Readln( a  ,b ) ;
    if (a>=b/4) and (a<=b/2) and (b mod 2<>1) then
      begin
         x:=trunc(b/2-a);
         y:=a-x;
         write('rabbit=',x,'   cock=',y);
      end
    else writeln('no answer');
END .