Составить программу перевода числа из 10 системы - вопрос №102680937 от HermioneGranger19 12.01.2021 10:22

Question

Другие предметы: Составить программу перевода числа из 10 системы счисления в 2 систему счисления. (программа Паскаль)

HermioneGranger19 · Answer

USES Crt;
VAR
   DES, OST, I, DW:INTEGER;
BEGIN
  ClrScr;
  Write('Введите десятичное число '); ReadLn(DES);
  I:=1;
  While (DES>=2) DO Begin
      OST:=DES mod 2;
      DES:=DES div 2;
      DW:=DW+OST*I;
      I:=I*10;
  End;
  DW:=DW+DES*I;
  Write('Двоичная запись числа ',DW);
END.