Дано натуральное число N. Вычислить S=1/sin1+1/sin2+....+1/sinN. Надо написать на Паскале

21 Мая 2019 в 19:40
219 +1
0
Ответы
1

program SumOfSin;

var
N, i: Integer;
S: Real;

begin
Write('Enter a natural number N: ');
Readln(N);

S := 0;

for i := 1 to N do
begin
S := S + 1 / sin(i);
end;

Writeln('The sum is ', S:0:2);
end.

28 Мая 2024 в 16:12
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир