Question

Mik cần gấp ạ

Answer 1

uses crt;

var a,i:integer;

begin

clrscr;

a:=65;

while a<>0 do 

begin

i:=a mod 2;

a:=a div 2;

write(i);

end;

readln;

end.