Программа на паскале

[ww01031977]

Программа на паскале

найти количество чисел не больше N, которые имеют в двоичном виде 3 ноля.

вот что получилось:
но не правильно работает. помогите

program zero;
uses crt;
var b:array [1..255] of integer;
l,t,n,i,k,j:integer;
begin
clrscr;
write('Vvedite t=');
readln(t);
i:=0; k:=0; l:=0; j:=2;
while j<=t do
begin
while j>=1 do
begin
i:=i+1;
b:=j mod 2;
j:=j div 2;
if b=0 then k:=k+1;
end;
{end; }
if k=3 then
begin
l:=l+1;
{writeln(j);}
n:=i;
for i:=n downto 1 do
writeln(b);
end;
writeln('kolichestvo=',l);
j:=j+1;
end;
{end;}
{end; }

end.

 

[Vladimir_S]

Ох, Вы и накрутили... Попытался разобраться - запутался. Пока предложу свой вариант решения задачки:

VAR
 N,Ncur:LongInt;
 Num,Zer_Num:Word;
 Md:Byte;

BEGIN
 Write('N (>7) = ');
 ReadLn(N);
 Inc(N);
 Num:=0;
 Repeat
  Dec(N);
  Ncur:=N;
  Zer_Num:=0;
  Repeat
   Md:=Ncur mod 2;
   if Md=0 then Inc(Zer_Num);
   Ncur:=Ncur div 2;
  Until Ncur=0;
  If Zer_Num=3 then Inc(Num);
 Until N=8;
 Writeln('Num= ',Num);
 ReadLn;
END.

 

[ww01031977]

Спасибо. подойдет...

 

[Vladimir_S]

Drive007, Вам создана новая тема: http://www.tehnari.ru/f43/t50645/
Эта ТЕМА ЗАКРЫТА.