Localize file www.TrSek.com/zadania/zdvdodes.pas{ ZDVDODES.PAS Copyright (c) Pheo }
{ Prevod èísla z dvojkovej sústavy do desiatkovej. }
{ }
{ Datum:25.04.2005 http://www.trsek.com }
program prevod_dvoj_des;
var X:string [20];
P, I,D :Integer; c:real;
begin
Writeln('Zadaj cislo X ako retazec v dvojkovej sustave');
Readln (X);
c:=0; D:=length(X);
For I:=1 to D DO
begin If( X[I]='1') then P:=1
Else P:=0;
C:=C+P*exp((D-I)*ln(2))
end;
Writeln ('Cislo ',X,' je dekadicky ',C:10:0);
readln;
end.