Шаг 1: Авторизация на сайте

program fact3;

var n, i, p: integer;

begin

write('n='); readln(n);

p := 1 ;

i := 0;

repeat

i := i + 1; p := p∗i

until 1 >= n;

write('n!=', p)

end.

Не используя стандартные функции (за исключением abs), вычислить с точностью до 0.0001 функцию y=f(x). Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше 0.0001, все последующие слагаемые можно уже не учитывать. Привести и значение функции у, найденное с помощью стандартных функций.

program f1;

var x, y, n, u: real;

begin

write('x='); readln(x);

y: = 1; {задается начальное значение для суммы}

n: = 1; {номер слагаемого : y=1–u1+u2–...}

u: = 1; {un =un-1(–x2)/(2n – 1)2n)}

repeat

u: = –u*x*x/((2*n – 1)*2*n);

y: = y + u; n:= n + 1

until abs(u) < 0.0001;

write('полученное y=',y:2,:4,'стандартное x=', cos(x))

end.

program f2;

var x, y, n, u: real;

begin

write('x='); readln(x);

y: = 1; {задается начальное значение для суммы}

n: = 1; {номер слагаемого : y=1–u1+u2–...}

u: = 1; {un =un-1(–x2)/(2n – 1)2n)}

while abs(u)>=0.0001 do

begin

y: = y + u;

u: = –u*x*x/((2*n–1)*2*n);

n: = n+1;

end;

write('полученное x=',x:8:4,'стандартное x=',cos(x):8:4)

end.

Дана непустая последовательность положительных вещественных чисел, за

которой следует отрицательное число. Составить программу вычисления

среднего арифметического этих чисел.

program s1;

var x, s: real; n: integer;

begin

write('x1='); readln(x);

n := 0; s := 0;

repeat

s := s + x;

n := n + 1;

write('x', n + 1, '='); readln(x);

until x < 0;

write('cp. арифм. =', s/n)

end.

program s2;

var x, s: real; n: integer;

begin

write('x1='); readln(x);

n := 0; s := 0;

while x >= 0 do

begin

s := s + x;

n := n + 1;

write('x', n + 1, '='); readln(x)

end;

write('cp. арифм. =', s/n)

end.

Дано целое n > 0. Составить программу, печатающую все простые числа из

диапазона [2, n].

program p1;

var n, m, k, p: integer;

begin

write('n='); readln(n);

for m := 2 to n do

begin

p := 0;

for k := 2 to trunc (sqrt (m)) do

if m mod k = 0 then p := 1;

if p = 0 then write(m,' ')

end

end.

program p2;

var n, m, k: integer;

label 1;

begin

write('n='); readln(n);

for m := 2 to n do

begin

for k := 2 to trunc(sqrt(m)) do

if m mod k = 0 then goto 1;

write(m, ' ')

1: end

end.

program p3;

var n, m, k: integer; t: boolean;

begin

write ('n='); readlln(n);

for m := 2 to n do

begin

k := 2;

repeat

t := m mod k = 0;

k := k + 1

until t or (k> = trunc(sqrt(m));

if not t then write (m, ' ')

end

end.

Шаг 1: Авторизация на сайте

Для авторизации на сайте необходимо ввести в строке интернет-браузера адрес сайта интернет-магазина: http://shop.n-l-e.ru и нажать на клавиатуре клавишу “Enter”

После загрузки главной страницы интернет-магазина, чтобы иметь возможность покупать товар, нужно кликнуть на кнопку «Личный кабинет» в правом верхнем углу странице

В появившемся окне необходимо ввести логин и пароль

В поле логин ввести номер своей дисконтной карты NoLimit Electronics (13 цифр без пробелов), а в поле пароль «пин-код» от карты и нажать кнопку «Вход».