Перевод факториала в двоичную систему - Turbo Pascal
Формулировка задачи:
Привет всем.
Нужна программа, которая переводит факториал в двоичную систему.
Желательно. чтобы при переводе каждая цифра (1 и 0 соответственно)
находилась в отдельной ячейки массива.
Переформулирую задачу.
Вводится факториал какого-то числа.
И мне нужно получить факториал этого числа в двоичной системе счисления, причём, чтобы каждая цифра (1 или 2 соответственно) была в отдельной ячейке массива.
Например, ввожу 8 и получаю 1001110110000000
Вводимое число в диапазоне от 1 до 10000
Решение задачи: «Перевод факториала в двоичную систему»
textual
Листинг программы
begin ... Readln(a); count2:=0; while (a>1) do begin a:=a div 2; inc(count2,a); end; WriteLn(count2); ... end.