Перевод факториала в двоичную систему - 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.

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы