Дано натуральное число n. вычислить ∑_(s-1)^n▒((-+1))/(k(k+1))

Question

Информатика: Дано натуральное число n. вычислить ∑_(s-1)^n▒((-+1))/(k(k+1))

Есения1511 · Accepted Answer

Var A,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9:integer; Begin WriteLn( Введите число ); ReadLn(A); While A 0 do    Begin    Case A mod 10 of    0:B0:=B0+1;    1:B1:=B1+1;    2:B2:=B2+1;    3:B3:=B3+1;    4:B4:=B4+1;    5:B5:=B5+1;    6:B6:=B6+1;    7:B7:=B7+1;    8:B8:=B8+1;    9:B9:=B9+1;    End;    A:= A div 10;    End; if (B0 = 3)and(B1 2)and(B2 2)and(B3 2)and(B4 2)and(B5 2)and(B6 2)and(B7 2)and(B8 2)and(B9 2)then WriteLn( Верно ) else if (B1 = 3)and(B2 2)and(B3 2)and(B4 2)and(B5 2)and(B6 2)and(B7 2)and(B8...

MOGZ ответил