1.

program borlpasc;

var n,i,k:integer;

s:real;

begin write('введите n=');

readln(n);

s:=0;k:=1;i:=1;

repeat s:=s+1/k;

i:=i+1;

k:=k*2;

writeln(s:4:3)

until i>n;

writeln('S=',s:4:3)

end.

2.

program borlpasc;

const p='pasword';

var x:string;

begin writeln('Введите пароль: "***" ');

repeat

readln(x);

if x<>p

then writeln('Пароль введен неверно')

else writeln('Пароль введен верно. Добро пожаловать!!!');

until x=p; 

end.

3.

program borlpasc;

var a0,a1:real;

n:integer;

const e=0.001;

begin

n:=1;

a1:=0.5;

repeat n:=n+1;

writeln(a1);

a0:=a1;

a1:=cos(a0)/2;

until abs (a1-a0)<e;

n:=n-1;

writeln('n=',n);

readln

end.

4.

program borlpasc;

var a,a1,f,s:real;

n:integer;

const e=0.001;

begin

n:=0;

F:=1;s:=-2;

repeat a:=s/f;

writeln(a:4:3);

s:=s*(-2);

n:=n+1;

f:=f*n

until abs(a)<e;

writeln('n=',n)

end.

5.

program borlpasc;

const a=pi/4;

b=pi/2;

h=pi/60;

var x,fx:real;

begin x:=a;

writeln(' x y');

while x<=b do

begin fx:=sin(x)+0.5*cos(x);

writeln('f(',x:4:2,')=',fx:4:2);

x:=x+h;

end;

end.

6.

program borlpasc;

const e=0.001;

var i,n,k:integer;

ch,zn,a,s:real;

begin ch:=1;i:=1;zn:=1;s:=0;

repeat a:=ch/zn;

writeln(a);

ch:=-1*ch;

i:=i+1;

k:=1;

zn:=i;

repeat zn:=zn*i;

k:=k+1

until k>=i;

s:=s+a

until abs(a)<e;

writeln('S=',s:4:5)

end.

7.

program borlpasc;

const e=0.001;

var a1,a0:real;

i:integer;

begin a1:=1;i:=1;

writeln(a1);

repeat a0:=a1;

a1:=arctan(a0)+1;

writeln(a1);

i:=i+1; 

until abs(a1-a0)<e;

writeln(i);

end.