Ответ:
var n,i,j: integer;
var res,sum: double;
begin
writeln('Введите n');
readln(n);
i:=1;
j:=1;
res:=0;
while (i<=n) do
sum:=0;
while (j<=i) do
sum:=sum+sin(j);
j:=j+1;
end;
res:=res+(1/sum);
i:=i+1;
writeln('Ответ: ',res:5:2);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var n,i,j: integer;
var res,sum: double;
begin
writeln('Введите n');
readln(n);
i:=1;
j:=1;
res:=0;
while (i<=n) do
begin
sum:=0;
j:=1;
while (j<=i) do
begin
sum:=sum+sin(j);
j:=j+1;
end;
res:=res+(1/sum);
i:=i+1;
end;
writeln('Ответ: ',res:5:2);
end.