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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 18:40:05
freepascal用while语句计算1—1000之间能同时被3和5整除的整数的和freepascal用while语句计算1—1000之间能同时被3和5整除的整数的和freepascal用while

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.