Zad 1.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,j : integer;
liczba: integer;
tab : array[1..100] of integer;

begin
write('Podaj liczbe do przetransponowania: ');
readln(liczba);
i:=1;
while(liczba>1) do
begin
tab[i]:=liczba mod 2;
liczba:=liczba div 2;
i:=i+1;
end;
for j:=i-1 downto 1 do
write(tab[j-1]);

readln;
end.

############################

Zad 2.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,j : integer;
liczba, system: integer;
tab : array[1..100] of integer;

begin
write('Jaki system? ');
readln(system);
write('Podaj liczbe do przetransponowania: ');
readln(liczba);
i:=1;
while(liczba>=1) do
begin
tab[i]:=liczba mod system;
liczba:=liczba div system;
writeln(tab[i],', ',liczba);
i:=i+1;
end;
for j:=i-1 downto 1 do
write(tab[j]);

readln;
end.

############################

Zad 3.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,n: integer;
liczba, wynik, reszta: integer;
tab, pot : array[1..100] of integer;

begin
pot[1]:=1; // ZAPISANIE POTĘG LICZBY 10 do tablicy.
pot[2]:=2;
for i:=3 to 10 do
begin
pot[i]:=pot[i-1]*2;
writeln('2^',i-1,'=',pot[i]);
end;

write('Podaj liczbe do przetransponowania: ');
readln(liczba);
wynik:=0;
j:=100;

n:=Length(IntToStr(liczba)); // ZAMIENIAMY LICZBĘ NA STRING I ZNANĄ FUNKCJĄ LICZYMY JEGO DŁUGOŚĆ.

for i:=1 to n do
begin
reszta:=liczba mod 10;
if (reszta=1) then
wynik:=wynik+pot[i];
liczba:=liczba div 10;
end;
writeln(wynik);

readln;
end.

############################

Zad 4.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,n,j: integer;
liczba, wynik, reszta, system: integer;
tab, pot : array[1..100] of integer;

begin
pot[1]:=1; // ZAPISANIE POTĘG LICZBY 10 do tablicy.
pot[2]:=2;
for i:=3 to 10 do
begin
pot[i]:=pot[i-1]*2;
writeln('2^',i-1,'=',pot[i]);
end;
write('Podaj system docelowy: ');
readln(system);
write('Podaj liczbe do przetransponowania: ');
readln(liczba);
wynik:=0;
j:=100;

n:=Length(IntToStr(liczba)); // ZAMIENIAMY LICZBĘ NA STRING I ZNANĄ FUNKCJĄ LICZYMY JEGO DŁUGOŚĆ.

for i:=1 to n do
begin
reszta:=liczba mod 10;
if (reszta=1) then
wynik:=wynik+pot[i];
liczba:=liczba div 10;
end;
writeln('Dziesietnie: ',wynik);

i:=1;
while(wynik>=1) do
begin
tab[i]:=wynik mod system;
wynik:=wynik div system;
i:=i+1;
end;
write('W podanym systemie: ');
for j:=i-1 downto 1 do
write(tab[j]);

readln;
end.

############################

Zad 5.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,n: integer;
liczba, wynik, reszta, system: integer;
pot : array[1..100] of integer;
zgodny : boolean;

begin
write('Podaj system z ktorego konwertujesz: ');
readln(system);
pot[1]:=1; // ZAPISANIE POTĘG LICZBY 10 do tablicy.
pot[2]:=system;
for i:=3 to 10 do
pot[i]:=pot[i-1]*system;

write('Podaj liczbe do przetransponowania: ');
readln(liczba);
wynik:=0;

n:=Length(IntToStr(liczba)); // ZAMIENIAMY LICZBĘ NA STRING I ZNANĄ FUNKCJĄ LICZYMY JEGO DŁUGOŚĆ.
zgodny:=TRUE;
for i:=1 to n do
begin
reszta:=liczba mod 10;
wynik:=wynik+reszta*pot[i];
liczba:=liczba div 10;
if (reszta>system) then zgodny:=FALSE;
end;
if (zgodny=TRUE) then writeln('W dziesietnym: ',wynik)
else writeln('Podana liczba nie miesci sie w wybranym systemie');

readln;
end.

############################