Дано натуральное число n. Составить программу вычисления значения выражения. Результат округлить до сотых.
Приложения:
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if n<=0 then Writeln('s=0')
else begin
var ssin:=sin(1);
var s:=1/ssin;
for var i:=2 to n do begin ssin+=sin(i); s+=1/ssin end;
Writeln('s=',s:0:2)
end
end.
Пример
n= 5
s=8.85
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if n<=0 then Writeln('s=0')
else begin
var ssin:=sin(1);
var s:=1/ssin;
for var i:=2 to n do begin ssin+=sin(i); s+=1/ssin end;
Writeln('s=',s:0:2)
end
end.
Пример
n= 5
s=8.85
Новые вопросы