1) 01000101011110000110001101100101<span>01101100
2) </span>0100000101100011011000110110010101110011<span>01110011
3) </span>010101110110100101101110011001000110111101110111<span>01110011
В двоичной СС =)</span>
1-3, 2-2, 3-3,4-4,5-1, 6-4, 7-1, 8-1,9-3,10-1
Program wer;
var k, i, n: integer;
begin
writeln ('vvedi natur chislo');
readln (n);
if n>=1 then
begin
for i:=1 to n do
if n/i=n div i then k:=k+1;
writeln ('kol-vo delitelej=', k);
end else writeln ('eto chislo ne natur');
readln;
end.