Localize file www.TrSek.com/beginner/danciwo/premena15.pas

{ 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.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com