{ Zadatak 390: Upisati cijeli broj u datoteku 'ulaz.txt'. Pretvoriti ga u binarni broj i upisati u datoteku 'izlaz.txt'. }
var d,f:text;
    broj:integer;
    bin_broj:string;
begin

assign(d,'ulaz.txt');
assign(f,'izlaz.txt');

rewrite(d);

writeln('Unesi cijeli broj:');
readln(broj);

{Pisemo u datoteku. - usput, ove komentare najbolje da obrišeš }
writeln(d,broj);

{Upisali smo broj. Resetiramo tu istu datoteku i citamo taj broj. }

reset(d);
readln(d,broj);
repeat
{ Ovo je obicno pretvaranje u binarne brojeve, najbolje da si to guglaš. }
if (broj mod 2) = 0 then
{Ako je broj podjeljeno s 2, nema ostatka onda pises 0}
begin
   bin_broj := Concat(bin_broj,'0');
end
{ Ako ima ostatka onda pises 1 }
else
begin
    bin_broj := Concat(bin_broj,'1');
end;
{ Nakon svega toga koristimo DIV kako bismo podjelili broj bez ostatka npr. (5 DIV 2 vraca 2 i ignorira 1 ostatka) }
broj := broj div 2;
{ Ovo ponavljamo dok ne dodemo do toga da kada zadnji broj podjelimo s 2, to bude 1, onda DIV vrati 0 jer je ostatak 1 }
until broj = 0;

rewrite(f);

{Pisemo u datoteku binarnu vrijednost.}
writeln(f,bin_broj);

writeln('Binarna vrijednost broja je ',bin_broj);
readln;


close(d);
close(f);
end.