program perevod;
Uses crt;
var z:integer;
procedure ToBin(z:integer);
begin
if (z>1) then ToBin(z div 2);
write(z mod 2:1);
end;
begin
clrscr;
write('Введи число:');
readln(z);
writeln('Число в десятичной системе:',z:6);
write('Число в двоичной системе: ');
ToBin(z);
readkey;
end.
Не уверена, что поняла вопрос правильно, но всё-таки:
1. Разделить десятичное число на 2, получится частное и остаток.
2. Разделить частное на 2, получится частное и остаток.
3. Продолжать деление частных, пока последнее частное не будет меньше 2.
4. Последнее частное и остатки записать в обратном порядке.
Например, из 27 в десятичной = 11011 в двоичной.
