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

题目

求出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;