JUMP.PAS 510 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. var
  2. m,n,t:integer;
  3. begin
  4. read(m);
  5. read(n);
  6. if m=1 then
  7. begin
  8. writeln((n+1) div 2);
  9. halt;
  10. end;
  11. if n=1 then
  12. begin
  13. writeln((m+1) div 2);
  14. halt;
  15. end;
  16. m:=m mod 3;
  17. n:=n mod 3;
  18. if m<=1 then m:=m+3;
  19. if n<=1 then n:=n+3;
  20. if m>n then
  21. begin
  22. t:=m;
  23. m:=n;
  24. n:=t;
  25. end;
  26. case m of
  27. 2:case n of
  28. 2:writeln(1);
  29. 3:writeln(2);
  30. 4:writeln(1);
  31. end;
  32. 3:case n of
  33. 3:writeln(2);
  34. 4:writeln(2);
  35. end;
  36. 4:writeln(1);
  37. end;
  38. end.