Разработать схему алгоритма для вычисления суммы ряда: s=1/2+1/3+1//n.число n вводится с клавиатуры. протестировать алгоритм для n=1, n=2, n=4, n=6. правильность ответов проверить с калькулятора.

Var   n,i: integer;   s: real; begin   write('введите значение n: '); readln(n);   s: =0;   for i: =2 to n do s: =s+1/n;   writeln('сумма ряда 1/2+1/3+1/4++1/n = ',s) end. тестовые решения: введите значение n: 1 сумма ряда 1/2+1/3+1/4++1/n = 0 введите значение n: 2 сумма ряда 1/2+1/3+1/4++1/n = 0.5 введите значение n: 4 сумма ряда 1/2+1/3+1/4++1/n = 0.75 введите значение n: 6 сумма ряда 1/2+1/3+1/4++1/n = 0.833333333333333

(k v l)^(m v n) = 1   это возможно тогда и только тогда, когда (k v l) = 1   и   (m v n) = 1

 

1)

k v l = 1;

это возможно в трех случаях, когда

а) к = 0,   l = 1;

b) k = 1, l = 1;

c) k = 1, l = 0;

 

 

2)

m v n = 1;

это также возможно только в трех случаях:

a) m = 0, n = 1;

b) m = 1, n = 0;

c) m = 1, n = 1;

 

так как первая часть выражения (m v n) может быть единицей в 3 случаях и вторая часть также может быть единицей в 3 случаях, тогда выражение

(k v l)^(m v n) = 1, может быть верным в девяти случаях (3*3).

 

ответ:   9.

 

program massiv; const n=10; var rmin: integer; j,i: integer; c: array[1..n] of real; t: array[1..2*n]of real; beginfor i: =1 to n do beginc[i]: =sqrt(i)* sin(2*i)/cos(2*i); write(c[i]: 5: 2, ' '); end; writeln('');

for i: =1 to n-1 do begint[i]: =c[i+1]-c[i]; t[n+i-1]: =c[i]-c[i+1]; end;

rmin: =1; for i: =2 to 2*n-2 do beginif t[i]< t[rmin] thenrmin: =i; end;

if rmin< n thenwriteln('naimenshaya raznost= ', rmin+1, ' and ', rmin, ' elementiv' )elsewriteln('naimenshaya raznost= ', rmin-n+1, ' and ', rmin-n+2, ' elementiv' ); end.