?? ac1051.pas
字號:
program ural1051;
var
m,n,t:integer;
begin
readln(m,n);
if m>n then begin t:=m;m:=n;n:=t;end;
if m=1 then
if odd(n) then writeln(n div 2+1) else writeln(n div 2)
else
if (m mod 3=0) or (n mod 3=0) then writeln(2) else writeln(1);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -