作业帮 > 综合 > 作业

求出1到100之内能被7或者11整除的所有正数,并将他们放在数组中并输出.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 20:08:40
求出1到100之内能被7或者11整除的所有正数,并将他们放在数组中并输出.
1
var
i,c11,c7:integer;
begin
c11:=0; c7:=0;
for i:=1 to 100 do
if i mod 11 =0 then inc(c11)
else if i mod 7 = 0 then inc(c7);
writeln(c11,' ',c7);
end;