Регистрация
AgentDaleCoop
16.09.2022 01:52
Информатика
Есть ответ 👍

я буду очень благодарень​

268
396
Посмотреть ответы 1

Ответы на вопрос:

Maximg01
Maximg01
4,8(100 оценок)

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.

 

   

Популярно: Информатика