Witam, mam do napisania program, który zamienia liczby dziesiętne na binarne. Mam takie coś:
program bin;
uses crt;
var
a, b, c, wynik : integer;
begin
clrscr;
writeln('Program zmieniajacy liczbe dziesietna na binarna');
writeln;
writeln('Podaj liczbe');
readln(a);
for b := 8 downto 1 do
begin
c := 1 shl b;
wynik := a mod c;
if (wynik = 0) then write('0')
else write('1');
end;
readln;
end.
Tylko, że troszkę źle liczy, czy ktoś mógłby mi powiedzieć co jest nie tak?