program ciag;

uses crt;

var n,k,a:integer;

s:real;

begin

writeln('Program oblicza sume ciagu');

writeln('Podaj ilosc elementow');

readln(n);

s:=0;

for k:=1 to 300 do

begin

writeln('Podaj element ',k);

readln(a);

s:=s+a/k;

if k=n then

k:=300;

end;

writeln('suma ciagu wynosi ',s:6:4);

readkey;

end.

program ciag;

uses crt;

var a:integer;

s:real;

begin

clrscr;

writeln('Program oblicza sume ciagu');

a:=1;

s:=-1;

while a<>0 do

begin

s:=s+a/sqrt(a);

writeln('Podaj element ');

readln(a);

end;

writeln('Suma ciagu wynosi ',s:6:4);

readkey;

end.

program ciag;

uses crt;

var a:integer;

s:real;

begin

clrscr;

writeln('Program oblicza sume ciagu');

a:=1;

s:=-1;

while a>0 do

begin

s:=s+a/sqrt(a);

writeln('Podaj element ');

readln(a);

end;

writeln('suma ciagu wynosi ',s:6:4);

readkey;

end.

program silnia1;

uses crt;

var w,n,k,silnia,silnia2,silnia3:integer;

d:real;

begin

writeln ('Program oblicza dwumian Newtona');

writeln('Podaj n');

readln (n);

writeln('Podaj k');

readln(k);

silnia:=1;

for w:=1 to n do

begin

silnia:=silnia*w;

end;

silnia2:=1;

for w:=1 to k do

begin

silnia2:=silnia2*w;

end;

silnia3:=1;

for w:=1 to (n-k) do

begin

silnia3:=silnia3*w;

end;

d:=silnia/(silnia2*(silnia3));

writeln('Dwumian wynosi wynosi ',d:6:2);

readkey;

end.

program fun;

uses crt;

function silnia(s:integer):integer;

var w,sa:integer;

begin

sa:=1;

for w:=1 to s do

sa:=sa*w;

silnia:=sa;

end;

var n,k:integer;

begin

writeln('Podaj n');

readln (n);

writeln('Podaj k');

readln(k);

write(silnia(n)/(silnia(k)*silnia(n-k)):6:2);

readkey;

end.

program zadanie06;

uses crt;

var x,n:word;

procedure centruj(nr_wiersza:byte;tekst:string);

var dl:byte;

begin

dl:=length(tekst);

dl:=round((80-dl)/2);

gotoxy(dl,nr_wiersza);

write(tekst);

end;

begin

clrscr;

centruj(2,'Zgadnij jaka liczba');

centruj(4,'Program wylosowal liczbe z zakresu 1-100');

randomize;

n:=random(100)+1;

while x<>n do begin

centruj(6,'Podaj liczbe:');readln(x);

if x>n then begin centruj(8,'Liczba za duza:');

write(x:4);end else

if x<n then begin centruj(10,'Liczba za mala:');

write(x:4);end else

begin centruj(20,'OK, wylosowana liczba:');

write(x:4);end;

centruj(6,' ');

end;

centruj(23,'Nacisnij dowolny klawisz');

repeat until keypressed;

end.

---