Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
Юра занимается регби и учиться на юриста. Влад занимается теннисом и через год будит физиком. Тимур занимается бегом и учиться на врача.
В большинстве случаев, скопированный объект может быть неоднократно вставлен. Или точнее сказать - почти всегда.
Но бывают программы которые после вставки очищают буфер обмена.
Так же есть программы, такие как Punto Switcher (которые переводят не правильно набранный, в другой раскладке текст) которые используют тот же буфер обмена (и если у вас в нем был скопирован какой то текст - он просто подменится этой программой).
Ну и последнее: операция "вырезать" вместо скопировать, не сохраняет содержимое в буфере обмена после его вставки, так, что в отличии от копирования, вставкв будет возможна только один раз
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Ряд медленно сходящийся к пи/2, при n = 100000 только пять знаков после запятой.
#include <iostream>
<span>using namespace std;
</span>const int m = 100000;
<span>int main() {
</span><span> double n,p;
</span><span> p=1; n=1;
</span><span> while (m>n) {
</span><span> p*=4*n*n/(4*n*n-1);
</span><span> n++;
</span><span> }
</span><span> cout<<p<<endl;
</span><span> </span><span> </span><span>system("pause");
</span><span> return 0;
</span><span>}
</span>