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

Dosyayı indirebilirsiniz.

2. dönemin tamamlanmış hali

Bu işlemi yaptıktan sonra kurmuş olduğunuz Avira AVP yazlımını açın. Menülerden Update / Manuel Update komutunu verin. Gözat diyerek biraz önce indirdiğiniz güncel virüs veritabanını gösterin.