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

                              Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


2) Дано натуральное число n. Представить это число в смешной системе
счисления.

   program num_to_str4(input,output);
   uses CRT;
   label 1;
   var N:longint;
   k,l,i,p:integer;
   s1:string[15];{строковое представление исходного числа N}
   a1:string[4];
   s:string[33];{строка результата}
   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;
      s:='';
      write('Введите число: ');
      readln(N);
      str(N,s1);
l:=length(s1);{определение длины исходного числа N}
      for i:=1 to l do
      begin
val(s1[i],k,p); {преобразование символа в числовой формат}
         a1:=num_to_str1(k);{обращение к функции и присваивание значения
переменной а1-четверка двоичных цифр}
         s:=s+a1;{формирование строки результата}
      end;
      writeln(N,'=',s);
      readln;
   end.


                                   66