Št 8 Feb 2007
program cisla;
var f: integer;
c: string;
s: string;
zv: integer;
begin
writeln (‘zadaj cislo’);
readln (f);
while (f>0) DO
begin
zv:= f mod 2;
str(zv,s);
c:= s + c;
f:= f div 2;
end;
writeln (c);
readln;
end.
\—