我给你提供pascal代码,流程图你照书比一下就出来了
p1:
sum:=0;
for a:=1 to 1000 do
if (a mod 5=0) and (a mod 7=0) then
sum:=sum+a;
writeln(sum);
p2:
x:=1;
y:=1;
z:=2;
sum:=x+y+z;
for a:=1 to 17 do begin
x:=y;
y:=z;
z:=x+y;
sum:=sum+z;
end;
writeln(sum);
3:
p:=1;
sum:=0;
while p512 do begin
sum:=sum+1/p;
p:=p*2;
end;
pascal代码就是这样,转成流程图就可以了