Viết chương trình pascal đổi một số nguyên dương từ hệ đếm cơ số 10 sang hệ đếm cơ số 2

0 bình luận về “Viết chương trình pascal đổi một số nguyên dương từ hệ đếm cơ số 10 sang hệ đếm cơ số 2”

1. Program Doi_thap_phan_ra_nhi_phan;
   Var He10,N,Y:Word;
         He2,Tam:String;
   Begin
      Readln(He10);
      N:=He10;
      He2:=’ ‘;
      Repeat
       Y:=He10 Mod 2;
         Str(Y, Tam);
         He2:=Tam + He2;
         He10:= He10 Div 2;
      Until He10 = 0;
      Writeln;
      Writeln(‘+So he 10 la     : ‘,N);
      Writeln(‘+Doi sang he 2 la: ‘,He2);

    Readln
   End.

   Bình luận