{ PREMENA15.PAS Copyright (c) Danciwo } { Zostavte program, ktory zabezpeci premenu desiatkoveho } { prirodzeneho cisla na vstupe na zodpovedajuce dvojkove cislo. } { } { Author: Danciwo } { Date : 15.02.2008 http://www.trsek.com } program premena15; uses crt; var x,zvysok:integer; begin clrscr; writeln('Program zabezpeci premenu desiatkoveho prirodzeneho cisla na dvojkove cislo.'); write('Zadaj cislo: '); readln(x); repeat zvysok:= x mod 2; x:=x div 2; writeln(zvysok); until x=0; readln; end.