Вот) Тут используется формула
и, как я понимаю, всё таки
, а не
var
x, res: real;
i, n: integer;
begin
writeln('Enter n, x:');
readln(n, x);
res := 0;
for i := 1 to n do
res := res + cos(exp(i * ln(x)));
writeln(res);
end.
=======
var
A: real;
i: integer;
begin
writeln('Enter A:');
readln(A);
i := 1;
while 1 / (2 * i) >= A do
i := i + 1;
writeln('a_', i, ' = ', 1 / (2 * i));
end.
A B A and B ¬A or not A ¬B and not b
0 0 0 1 1 1 1
0 1 0 1 1 0 0
1 0 0 0 0 1 0
1 1 1 0 1 0 0
4×1024(получили киллобайты)×10249получили байты)×8(получили биты)=33554432 бита
4096÷8(байты)÷1024(киллобайты)=0.5КБ
34×1024(мегабайты)×1024(киллобайты)=35651584 Кбит
2кБ × 1024= 2048 байтов × 8 =16384 бит
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Write('S=',Range(1,n).Select(x->sqrt(3*x)).Sum)
end.
<u>Пример</u>
n= 5
S=14.5186255116972