如果你只学到循环，我就只有不用函数了1.vars,x:qword;n,i,j:byte;beginread(n);s:=0;fori:=1tondobeginx:=1;forj:=2toidox:=x*j;s:=s+x;end;write(s);end.2.vars:real;i,j:byte;x:qword;begins:=0;fori:=1to10dobeginx:=1;forj:=2toidox:=x*j;s:=s+1/j;end;write(s);end.3.varn,i:word;beginread(n);fori:=2totrunc(sqrt(n))doifnmodi=0thenbeginwrite('NO');halt;end;write('YES');end.4.varn,i:word;total:byte;begintotal:=0;read(n);fori:=1tondoifnmodi=0theninc(total);write('total=',total);end.5.vari,j:char;beginfori:='a'to'z'dobeginforj:='y'downtoidowrite('');forj:='a'toidowrite(j,'');writeln;end;end.6.vara,b,c:byte;beginfora:=1to100doforb:=1to50doforc:=1to20doifa+2*b+5*c=100thenwriteln(a,'',b,'',c);end.7.{把1/3元看作一个单位，则是把300个单位还为15,9,1个单位}vara,b,c:byte;beginfora:=0to20doforb:=0to33doforc:=0to300doif15*a+9*b+c=300th
xuexue1535
