101010102-2528+716=101008290
<span>1 байт = 8 бит, тогда </span>8 байт - 64 бит
(1 и 0)=0, (0 или 1)=1 -ответ
var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.