uses crt;
var
gelen:string;
sonuc,basamak,sayac : integer;
function us(x:longint;n:integer):longint;
Begin
if n=0 then us:=1
else
us:= x * us(x,n-1);
End;
begin
writeln(‘sayıyı girin:’);
readln(gelen);
basamak:=length(gelen);
sonuc:=0;
for sayac:=0 to basamak-1 do {}
begin
if gelen[basamak-sayac]=’1′ then
begin
sonuc:=sonuc + us(2,sayac);
end;
end;
writeln(sonuc);
readln;
end.
Yukarıdaki kod ne işe yarıyor sizce….