program sortowanie;

const zakresik = 99;

var liczby:array[1..zakresik] of integer;

i,j,k,n : integer;

procedure czytaj;

begin

writeln('Program sortuje dane metoda bombelkowa');

write('podaj ilosc liczb: '); read(n);

for i:=1 to n do

begin

write('liczba',i,' = ');read(liczby[i]);

end;

end;

procedure pisz ;

begin

writeln('oto posegregowane elementy: ');

for i:=1 to n do

begin write(liczby[i],' ');

end;

readln

end;

Begin

czytaj;

for i:=2 to n do

for j:=n downto i do

begin

if liczby [j-1]>liczby[j] then

begin

k:=liczby[j-1];

liczby[j-1]:=liczby[j];

liczby[j]:=k;

end;

end;

pisz;

readln

end.

program silniaa;

uses crt;

var n:integer;

function silnia(n:integer):integer;

begin

if n=0 then silnia :=1

else silnia :=n*silnia(n-1);

end;

begin

writeln('Program oblicza silnie dowolnej liczby');

write('podaj liczbe: ');

readln(n);

writeln(n,'!=',silnia(n));

readkey;

end.

program pierwszaczki;

const n=100;

var p,d:integer;

pierwsza: boolean;

Begin

writeln('liczby pierwsze z przedzialu[1,',n,']:');

write(2:4,3:4);

p:=5;

while p<=n do

begin ```

d:=3;pierwsza:=true;

while pierwsza and (d*d<=p) do

begin

pierwsza:=(p mod d)<>0;

d:=d+2

end;

if pierwsza then write(p:4);

p:=p+2

end;

readln;

end.

var a,b : integer;

function nwd (a, b :integer):integer;

var pom: integer;

begin

while (a<>b) do

begin

if a<b then

begin

pom:= a; a:=b; b:=pom;

end;

a:=a-b;

end;

nwd:= a;

end;

begin

write('podaj a: '); readln(a);

write('podaj b: '); readln(b);

write('najwiekszy wspolny dizlenik ',nwd(a,b) );

readln;

end.

program fibonacci;

var a, b, c, i, liczba:integer;

begin

writeln('Podaj ktora liczbe z ciagu Fibonacciego chcesz zobaczyc: ');

readln(liczba);

a:=1;

b:=1;

if liczba <= 2 then writeln('wynik : ',a)

else

begin for i:=3 to liczba do

begin

c:=a+b;

a:=b;

b:=c;

end;

writeln('wynik: ',c);

readln;

end;

end.

program euklides;

uses crt;

var a, b, c: integer;

begin

clrscr;

write('podaj liczbe calkowita A: ');

readln(a);

write('podaj liczbe calkowita B: ');

readln(b);

repeat

c:=a mod b;

a:=b;

b:=c;

until b=0;

write('NWD= ',A);

readln;

end.

program dwojka;

uses crt;

var a,b,c,d: longint;

begin

clrscr;

c:=1;

d:=0;

Write('wprowadz liczbe: ');

readln(a);

repeat

b:=a mod 2;

a:=a div 2;

d:=d+b*c;

c:=c*10;

until a = 0;

write(d);

readln;

end.

program dwojka;

uses crt;

var a,b: integer;

c: string;

begin

clrscr;

Write('wprowadz liczbe: ');

readln(a);

repeat

b:=a mod 2;

a:=a div 2;

write(b);

until a = 0;

readln;

end.

---