В древней Греции жил мудрец по имени Прокопий, который был славен тем, что мог по любому числу мгновенно определить, есть ли в нем ровно три цифры 3.

Однако отвечал Прокопий только в двоичный системе счисления. Он отвечал «1», если в числе есть три цифры 3, и «0», если нет.

Как-то раз один из самых прилежных учеников Прокопия усомнился в его и спросил его «Учитель, правда ли, что в числе n есть ровно три тройки?», на что получил ответ — число d.

Напишите программу, которая скажет, ошибся учитель, или же был прав в своём ответе.

Формат входных данных
С клавиатуры вводятся два целых числа n и d (∣∣n∣∣≤109, d=0 или d=1).

Формат выходных данных
Ваша программа должна вывести «YES», если мудрец ответил правильно, или «NO», если нет.
входные данные
30303 1
30303 0
12345 1
выходные данные
YES
NO
NO

Program z1;  Var a: array [1..1000] of integer;      b: array [1..1000] of integer; i,j,n,min,m:integer;Begin  write('Введите размер массива - ');  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(50)-0;    write (a[i],' ');  end;    j:=1;  for i:=2 to n-1 do  begin    if ((a[i]>a[i-1]) and (a[i]>a[i+1]))      then begin            b[j]:=a[i];            j:=j+1;           end;  end;    m:=j-1;  writeln;  for j:=1 to m do    write (b[j],' ');    min:=b[1];  for j:=2 to m do    if (b[j]<min) then min:=b[j];    writeln;  writeln(min);    End.

Const nx=20;
var i,j,n,s:integer; A,B:array[1..nx,1..nx] of real;min,t:real;
z:array[1..nx] of real;
begin
min:=100;
write('Введите размер матрицы n');Readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:= sin(j)*(1-sin(i));
write(A[i,j]:9:4);
if min > A[i,j] then begin min:= A[i,j];s:=i;end;
end;writeln;end;writeln;
i:=s;
for j:=1 to n do begin
z[j]:=A[i,j];write(z[j]:9:4);end;
for i:=1 to n do begin
for j:=2 to n do begin
if z[j-1]> z[j] then begin
t:=z[j-1];z[j-1]:=z[j];z[j]:=t
end;end;end;
writeln;
i:=s;
for j:=1 to n do begin
A[i,j]:=z[j];write(z[j]:9:4);end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
B[i,j]:= A[i,j];write(B[i,j]:9:4);end;
writeln;end;
writeln;write('min = ',min:9:4, '   I = ', s);
end.