Question

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(он работает только с целочисленным типом данных).

Answer 1

Var i,input:integer;
s:string;
begin
Writeln('Decimal To Binary');
Writeln('Enter any number(0-255) and press ');
write(' - ');
Readln(input);
s:='';
for i:=1 to 8 do
begin
if input mod 2 = 0 then s:='0'+s
else s:='1'+s;
input:=input div 2;
end;
writeln(s);
Readln;
end.