haihongyuan.com
海量文库 文档专家
全站搜索:
您现在的位置:首页 > 小学教育 > 小学英语小学英语

统计问题

发布时间:2013-12-06 15:34:45  

统计

yeg-dr 2013-11-21 16:44:24

第三题

var n:integer;

begin

read(n);

if n<=500 then write(n div 2+1) else write((1000-n)div 2+1); end.

yeg-dr 2013-11-21 16:52:27

蜀山区第一题

var

shuzu:array[1..100] of integer;

n,a,i:integer;

s:longint;

begin

readln(a,n);

s:=0;

for i := 1 to n do begin

read([shuzu[i]);

if shuzu[i]<a then s:=s+shuzu[i];

end;

write(s);

end.

网站首页网站地图 站长统计
All rights reserved Powered by 海文库
copyright ©right 2010-2011。
文档资料库内容来自网络,如有侵犯请联系客服。zhit326@126.com