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

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


1) Дано натуральное число n < 10. Записать его в виде четверки двоичных
цифр.

   program num_to_str3(input,output);
   uses CRT;
   label 1;
   var M:integer;
   function num_to_str1 (num:integer):string;
   var Q,r,i:integer;b:string[1];a:string[4];
   begin
      Q:=num;
      a:='';{начальное значение строки-пусто}
      for i:=1 to 4 do
      begin
         r:=Q mod 2;{нахождение очередного остатка}
str (r,b);{преобразование числа в строковый формат}
a:=b+a;{подключение символа к строке результата}
         Q:=Q div 2;{частное от целочисленного деления исходного числа на
2}
      end;
      num_to_str1:=a;
   end;
   begin
      clrscr;
      write('Введите число: ');
      1:readln(M);
      if M>=10 then
      begin
         writeln('ошибка ввода');
         goto 1;
      end;
      writeln(num_to_str1(M));
      readln;
   end.




                                   65