發表新討論
#10101: 百分百正确Pascal语言答案


2602224619 (华二王亦刚)

學校 : 上海市娄山中学
編號 : 50441
來源 : [218.242.227.167]
最後登入時間 ：
2015-09-19 11:18:27
d073. 分組報告 -- 板橋高中教學題 | From: [218.242.227.167] | 發表日期 : 2015-08-01 11:04
var
  n:qword;
begin
  readln(n);
  if(n mod 3=0)then writeln(n div 2);
  if(n mod 3=1)then writeln((n+2) div 2);
  if(n mod 3=2)then writeln((n+1) div 2);
  readln;
end.
不会不正确，我已经试验过了！！！ 
ZeroJudge Forum