Program dfsdf;var n,i: integer; s,a: real;begin Readln(n); s:= 0; for i:= 2 to n do a:= 1 + ((1 / n) * (1 / n)); s:= s + a; Writeln(s)end.
Письменный !!!!!!!!!!!!!!!!!!!!!
Посмотри на фото пример перевода в двоичную систему, делишь на основание до наименьшего ответа, потом записываешь последний ответ и остатки с права на лево, а второй пример перевода в десятичную систему.
1 y <> 0
x mod 7 <> 0
(x >-5) AND (x<10)
(x>=-1)AND(x<=1)