40 ! с по delphi(pascal). буду . var i,input: integer; begin writeln('decimal to binary'); writeln('enter any number(0-255) and press '); write(' - '); readln(input); for i: =1 to 8 do begin if input mod 2 = 0 then begin write('0'); end; if input mod 2 = 1 then begin write('1'); end; end; readln; end. надо чтобы десятичное число переводилось в двоичное, но тут проблема в том что мне нужно чтобы число выводилось в двоичном коде. я никак это не могу сделать. так как если я добавляю input: =input/2 внутри цикла последней строкой, то программа пишет "incompatible types: 'integer' and 'extended' ". а если я меняю тип данных переменной input на real, то начинает ругаться mod(он работает только с целочисленным типом данных).