Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления - Turbo Pascal

Формулировка задачи:

Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления. Используя эту функцию , получить двоичные представления пяти чисел.

Код к задаче: «Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления - Turbo Pascal»

textual
Function GetBinNum(A : Longint) : String;
Var
  S : String;
  n : Longint;
Begin
  S:=''; n:=A;
  While n>0 do
  Begin
    S:=Chr(48+(n mod 2))+S;
    n:=n div 2;
  End;
  GetBinNum:=S;
End;
 
Begin
  Writeln(GetBinNum(4));
  Writeln(GetBinNum(6));
  Writeln(GetBinNum(16));
  Writeln(GetBinNum(32));
  Writeln(GetBinNum(64));
End.

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ