Param44. Описать функцию DecToBin($$N$$) строкового типа, возвращающую строковое представление целого неотрицательного числа $$N$$ в двоичной системе счисления. Результирующая строка состоит из символов «0»-«1» и не содержит ведущих нулей (за исключением представления числа $$0$$). Используя эту функцию, получить двоичные представления пяти данных чисел.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
program Param44; type St=String; var N,i:integer; function DecToBin(N:integer):St; begin result:=''; while N>0 do begin insert(chr(48+(N mod 2)),result,1); N:=N div 2; end; if result='' then result:='0'; end; begin for i:=1 to 5 do begin Write('N: '); readln(N); writeln(DecToBin(N)); end; end. |
Другие задачи из раздела Param можно посмотреть здесь.
Комментарии: