Onluk Sayı sistemini ikilik sayı sistemine çevirip sondan başlayarak yazan progr

Onluk Sayı sistemini ikilik sayı sistemine çevirip sondan başlayarak yazan program.


uses crt;
   var
   i,sayi,sayi1:integer;
   son:string;
   begin
   clrscr;
   write(‘sayıyı gir:’);readln(sayi);
   for i:=1 to sayi do begin
   sayi1:=sayi mod 2;
   if (sayi1=0) then
   son:=’0’+son
   else son:=’1’+son;

   sayi:=sayi div 2;
   if (sayi=1) then begin
   son:=’1’+son;
   break;end;end;
   writeln(son);
   readln;
   end.


Linkback: https://www.buyuknet.com/onluk-sayi-sistemini-ikilik-sayi-sistemine-cevirip-sondan-baslayarak-yazan-progr-t10136.0.html