哪个语言啊?
如果是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.
猜你喜欢
- 1Nm和公斤怎么换算
- 2从甲开往乙地,客车要6小时,客车到乙地时,货车离乙地还有50km,客货车速度比是5∶4,甲乙相距
- 3围绕长方形公园的栅栏长280m.已知该公园的面积为4800㎡,求这个公园的长与宽.
- 4甲乙两数的和是52,甲数的三分之一等于乙数的七分之二,甲乙两数的关系是
- 5有什么诗句是表达对感情及人与人之间关系的无奈
- 6以My favourite movie star为题写一篇70词左右的短文需写出1、Who is your favourite movie star?2、what does he or her look like 3、what do you
- 7已知 x= (根号3+根号2)分之(根号3-根号2) y=(根号3-根号2)分之(根号3+根号2) 则代数式X2-3XY+Y2的值为-
- 8已知方程3(x-y)-5x+12=2x-7y-4,则x-y的值为_
- 9二元一次方程组x+y=5kx−y=9k的解是二元一次方程2x+3y=6的解,那么k的值是( ) A.k=−34 B.k=34 C.k=43 D.k=−43
- 10已知4x-5y+2z=0,x+4y-3z=0,求(x²+y²+z²)/xy+yz+xz