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