• Вводится целое положительное число. Перевести его в двоичную систему счисления. Вывести результат в 2 с.с.
    Это Паскаль!

Ответы 1

  • var  n,n1:longint;  s:string;begin  Write('Введите натуральное число: '); Readln(n);  s := ''; n1:=n;  while n > 0 do   begin    if Odd(n) then s:='1'+s else s:='0'+s;    n := n div 2  end;  Writeln(n1,'(10)=',s,'(2)')end.Тестовое решение:Введите натуральное число: 349349(10)=101011101(2)
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years