1到100内被6或8整除的所有自然数的平方根的和

来源:学生作业学帮网 编辑:学帮网 时间:2024/06/05 13:21:43

1到100内被6或8整除的所有自然数的平方根的和

var
i:integer;
s:real;
begin
s:=0
for i:=1 to 100 do
if i mod 6=0 or i mod 8=0 then s:=s+sqr(i);
writeln(s);
readln;
end.