Question

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

Answer 1

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;