很简单的语句问题(循环语句)(2分)

W

wl821205

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-20

• #1

求1到100中的数,7的倍数的总合,代码怎么写请你们帮帮忙

 

S

szmh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-20

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
begin
j:=0;
for i:=1 to 100 do
if (i mod 7)=0 then
j:=j+i;
Edit1.Text:=IntToStr(j);
end;

 

R

rinsonliam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-20

• #3

晕倒，你 干吗 的啊？
void fun(void)
{
int i,sum;
for(i=1;i<101;i++)
{
if(i%7==0)sum+=i;
}
return sum;
}