Вводится целое положительное число. Перевести его в двоичную систему счисления. Вывести результат в 2 с.с.
Это Паскаль!
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)
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
