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