Практикум по решению задач на ЭВМ. Тарова И.Н - 63 стр.

                        Практикум по решению задач на ЭВМ


    writeln(N,'=',a);
    readln;
  end.




b) program num_to_str1(input,output);
   uses CRT;
   var N:longint;k1:integer;
   function num_to_str (num:longint;k:integer):string;
   var Q,r:longint;b:string[1];a:string[33];
   begin
      Q:=num;
      k:=0;{счетчик количества двоичных цифр в преобразованном числе}
      a:='';{начальное значение строки-пусто}
      while Q<>0 do
      begin
         r:=Q mod 2;{нахождение очередного остатка}
str (r,b);{преобразование числа в строковый формат}
a:=b+a;{подключение символа к строке результата}
         Q:=Q div 2;{частное от целочисленного деления исходного числа на
2}
         k:=k+1;
      end;
      writeln('длина числа в двоичном формате=',k);
      write('двоичная запись числа: ');
      num_to_str:=a;
   end;
   begin
      clrscr;
      write('Введите число: ');
      readln(N);
      writeln(num_to_str(N,k1));
      readln;
   end.




                                       63