Question

Создать программу для перевода чисел из десятичной в двоичную систему счисления. Паскаль

Answer 1

Ответ:

Имо, короче некуда:

• function f (x:integer):string := x>0?f(x div 2)+(x mod 2).ToString:'';
• begin
• var x := ReadInteger;
• Write(f(x));
• end.

Пример работы: