Question

5到300之间能被7整除的数的平方和

Answer 1

哪个语言啊?

如果是pascal的话

program sum;

var sum:int64;

i:shortint;

begin

i:=5;

repeat

if i mod 7=0 then

sum:=sum+sqr(i);

inc(i);

until i>300;

writeln(sum);

end.