Umiestnenie súboru www.TrSek.com/zadania/zdesdodv.pas{ ZDESDODV.PAS Copyright (c) Pheo }
{ Program na prevod cisel z desiatkovej do dvojkovej sustavy. }
{ }
{ Datum:25.04.2005 http://www.trsek.com }
PROGRAM ZDESDODV;
VAR I,J,C,D:INTEGER;
Z:ARRAY [1..16] OF INTEGER;
BEGIN
WRITELN('ZADAJ CISLO V DES SUSTAVE');
READ(D);
I:=16;
C:=D;
REPEAT
Z[I]:=C MOD 2;
C:=C DIV 2;
I:=I-1;
UNTIL C=0;
WRITE('ZAPIS CISLA ',D,' V DVOJKOVEJ SUSTAVE JE: ');
FOR J:=I+1 TO 16 DO
WRITE (Z[J]);