Вводится целое положительное число. Перевести его в двоичную систему счисления. Вывести результат в 2 с.с.
Это Паскаль!
Ответы
Ответ дал:
0
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.
Тестовое решение:
Введите натуральное число: 349
349(10)=101011101(2)
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.
Тестовое решение:
Введите натуральное число: 349
349(10)=101011101(2)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад