nie zauważyłam takiego;( [ Dodano: Dzisiaj o 23:01 ] program binarka2; uses crt; var m,n,k:real; i:integer; p,g:longint; begin clrscr; write('podaj liczbę n= '); readln(n); i:=0; if i<7 then begin; p:= n mod 2; i:=i+1; n:=(n/2); write(p,' '); end; readkey; end. [ Dodano: Dzisiaj o 23:02 ] nie wie...