Ответы
Ответ дал:
0
var
i, k: integer;
begin
for i := 1 to 4 do
k += i;
writeln(k);
end.
var
n, i: integer;
k: real;
begin
readln(n);
for i := 2 to n do
k += (i mod 2 = 0 ? 1 : -1) * (1 / i);
writeln(k);
end.
var
i: integer;
k: real;
begin
for i := 2 to 600 do
k += 1 / i;
writeln(k);
end.
i, k: integer;
begin
for i := 1 to 4 do
k += i;
writeln(k);
end.
var
n, i: integer;
k: real;
begin
readln(n);
for i := 2 to n do
k += (i mod 2 = 0 ? 1 : -1) * (1 / i);
writeln(k);
end.
var
i: integer;
k: real;
begin
for i := 2 to 600 do
k += 1 / i;
writeln(k);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад