Sustavy - Zadanie 6

program zadanie6; var a,b,c,d,i,j,n,ex:integer; cislo:string; cis,decimal:array[1..100] of integer; function mocnina(x,n:integer):longint; var i:integer; begin mocnina:=1; for i:=1 to n do begin mocnina:=mocnina*x; end; end; begin writeln('zadaj, v ktorej sustavy chces previest'); readln(d); writeln(mocnina(13,2)); writeln('zadaj číslo, ktoré chceš previesť do desiatkovej: '); readln(cislo); for i:=1 to length(cislo) do upcase(cislo[i]); ex:=length(cislo)-1; for i:=1 to length(cislo) do begin if (cislo[i]='0') then cis[i]:=0; if (cislo[i]='1') then cis[i]:=1; if (cislo[i]='2') then cis[i]:=2; if (cislo[i]='3') then cis[i]:=3; if (cislo[i]='4') then cis[i]:=4; if (cislo[i]='5') then cis[i]:=5; if (cislo[i]='6') then cis[i]:=6; if (cislo[i]='7') then cis[i]:=7; if (cislo[i]='8') then cis[i]:=8; if (cislo[i]='9') then cis[i]:=9; if (cislo[i]='A') then cis[i]:=10; if (cislo[i]='B') then cis[i]:=11; if (cislo[i]='C') then cis[i]:=12; if (cislo[i]='D') then cis[i]:=13; if (cislo[i]='E') then cis[i]:=14; if (cislo[i]='F') then cis[i]:=15; end; b:=0; for i:=1 to length(cislo) do begin b:=b+(cis[i]*(mocnina(d,ex))); dec(ex); end; writeln('v desiatkovej je číslo ',cislo,' rovné ',b); writeln; readln; end.