Kody źródłowe/Zamiana liczb z systemu dziesiętnego na dowolny
Pascal edytuj
program dec2p;
const
cyfra:string='0123456789ABCDEF';
var
wynik:string;
p,n:integer;
begin
wynik:='';
writeln('Podaj liczbe');
readln(n);
writeln('Podaj podstawe systemu na ktory zamienic');
readln(p);
repeat
wynik:=cyfra[n mod p+1]+wynik;
n:=n div p;
until n=0;
writeln(wynik);
readln;
end.