Cоставить на Паскале: 1) программу для вычисления суммы ряда S=1/1+ 1/3+1/5+..+1/N. Число N вводится с клавиатуры.

24 Окт 2019 в 01:50
218 +1
0
Ответы
1

program SumOfSeries;

var
N, i: integer;
S, denominator: real;

begin
write('Enter the value of N: ');
readln(N);

S := 0;
denominator := 1;

for i := 1 to N do
begin
S := S + 1 / denominator;
denominator := denominator + 2;
end;

writeln('Sum of the series is: ', S:0:2);

end.

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