谁给我编个程序

来源：百度知道 编辑：UC知道 时间：2024/07/04 07:47:15
编写一个程序，对某次测验的分数统计分析，统计59分及以下，60~69分、70~79分、80~89分，90~99分和100分的同学个有多少人？
据说有大约30多句，大多是类似的，这程序怎么写啊？

看我打这么多，就把分给我把
你这里其实还应该有小数，我把小数算进去了
pascal
program adsa；
var a,b,c,d,e,f,:real;
i,n:integer;
begin
a:=0;
b:=0;
c:=0;
d:=0;
e:=0;
f:=0;
readln(n);
for i:=i to n do
begin
if n<60 then a:=a+1;
if (n>=60) and (n<70) then b:=b+1;
if (n>=70) and (n<80) then c:=c+1;
if (n>=80) and (n<90) then d:=d+1;
if (n>=90) and (n<100) then e:=e+1;
if n=100 then f:=f+1;
end;
writeln('<59:',a);
writeln('60-69:',b);
writeln('70-79:',c);
writeln('80-89:',d);
writeln('90-99:',e);
writeln('100:',f);
readln;
end.