Предмет: Информатика,
автор: dreamj
Помогите пожалуйста
Среда программирования "КуМир"
В принципе, разберусь и в паскале, если вам будет легче
Приложения:
Ответы
Автор ответа:
0
3
var n: integer;
s: real;
begin
s:=0;
n:=1;
while n <= 3*3*3*3*3*3*3*3 do begin
s:= s+1/n;
n:= n*3;
end;
writeln(s);
end.
4
var a: integer;
s: real;
begin
s:=1;
readln(a);
for var i:=1 to a do begin
s:= s-1/(i+1);
s:= s+1/(i+2);
end;
writeln(s);
end.
var n: integer;
s: real;
begin
s:=0;
n:=1;
while n <= 3*3*3*3*3*3*3*3 do begin
s:= s+1/n;
n:= n*3;
end;
writeln(s);
end.
4
var a: integer;
s: real;
begin
s:=1;
readln(a);
for var i:=1 to a do begin
s:= s-1/(i+1);
s:= s+1/(i+2);
end;
writeln(s);
end.
Автор ответа:
0
Вероятно, можно просто удвоить это число
Автор ответа:
0
Или нет
Автор ответа:
0
var i,n,k: integer; s: real; begin write('n = '); readln(n); k:=1; s:=0; for i:=1 to n do begin s:=s+(k/i); k:=-k; end; writeln('сумма: ',s); end.
Автор ответа:
0
Блин, точно
Автор ответа:
0
Всё же элементарно
Интересные вопросы
Предмет: География,
автор: Vladneznayka
Предмет: Химия,
автор: Kerbalspace
Предмет: Математика,
автор: irapapko6
Предмет: Информатика,
автор: Tim9894
Предмет: Математика,
автор: archer1440