大学C语言改错

;86Þ!ßnà/**********\rreturn!"#\r$\n%PEnd\ramax;&'()*@P**********/\r/**********main+P)\rEnd,*@-main()\r**********//0123?4CD;<*@{inti;\r5*@fun/˜™R@m\r}67-8/Ӄ@F‹for(i=100;i<=200;\r9:;<]šá7Ri++)\rmain()/=>?@\n©?âv\r(Pá7R©džif(sub(i)==l)print\rintP1,šdž0oVf("%4d",i);\ra[]={1,2,9,24,35,PP*/W0*@yzj();EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\ryzj()\r(\rFILE*IN,*OUT;\rintn;\rinti[10];\rinto;\rIN=fopen(nin.dat,!\rif(IN==NULL)\r{printff'ReadFile\rError");\r}\rOUT=fbpen("out.\rdat","w");\ri[OUT==NULL)\r{printf("Write\rFileError");\r}\rfbr(n=0;n<10;n-H-\r)\r(\rfscanf(IN/%\rdH,&i[n]);\r}\rfor(n=0;n<10;n-H-\r)\r{\ro=sub(i[n]);\rfprintf(OUT,n\r%d\n';o);\r)\rfclose(IN);\rfclose(OUT);\r)\rintk,s=0;\rdo\r{s=s+m%10;\rm=m/10;\r}while(m!=0);\rif(s%7==0)k=l;\relsek=0;\rreturn(k);