free pascal用 while 语句计算1—1000之间能同时被3和5整除的整数的和

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 03:47:27
free pascal用 while 语句计算1—1000之间能同时被3和5整除的整数的和

free pascal用 while 语句计算1—1000之间能同时被3和5整除的整数的和
free pascal用 while 语句计算1—1000之间能同时被3和5整除的整数的和

free pascal用 while 语句计算1—1000之间能同时被3和5整除的整数的和
program calc;
var
total: dword;
i: integer;

begin
total := 0;

for i:=1 to 1000 do
if((i mod 15) = 0)then
total += i;
writeln('Total: ', total);
end.