Вот, пришлось вспомнить былые деньки... Эх, ностальгия... Старость х)
На паскале:
var k,i:integer;
begin
for i:=10 to 99 do
if (i mod 7) = 0 then
k:=k+1;
writeln(k)
end.
1010=1111110010
1100=<span>10001001100
</span>1011=1111110011
1001=1111101001
0101=1100101
0110=1101110
0011=1011
0001=1
0010=1010
0100=1100100
1001=<span>1111101001</span>
Первое задание=0,064Гб, второе=800мб