Вводится целое положительное число. Перевести его в двоичную систему счисления. Вывести результат в 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)