Написать программу которая вычисляет сумму первых членов ряда

Содержание

Вычисление частичной суммы ряда:1,3,5,7.
Введите количество суммированных членов ряда ->1-5
Сумма первых 15 членов ряда равна 330.

Ответы 1

program zhn;
var
i,n,sum:integer;
begin
writeln(‘Вчисление суммы членов последовательности: 1,3,5,7. ‘);
write(‘Введите количество членов для сложения:’);
readln(n);
for i:=1 to n*2 do begin
if i mod 2 <> 0 then sum:=sum+i; //Проверяем что бы число было нечетным
end;
writeln(‘Сумма ‘,n,’ членов прогресии = ‘,sum);
end.

Источник: znanija.site

Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/3+1/4+… — Turbo Pascal

лаба 5 1) Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/3+1/4+…количество суммируемых членов ряда задается во время работы программы.Ниже представлен рекомендуемй вид экрана во время работы программы(данные введенные пользователем, выделены полужирным шрифтом). Вычисление частичной суммы ряда: 1+1/2+1/3+… Введите количество суммируемых членов ряда ->15 Сумма первых 15 членов ряда равна 3,3182 помогите пожалуйста

1. Числовой ряд. Определение сходимости. Сумма ряда. #neliseeva #исследоватьряд

Код к задаче: «Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/3+1/4+…»

Листинг программы

var n,i:integer s:real; begin WriteLn(‘Вычисление частичной суммы ряда: 1+1/2+1/3+…’); Write(‘Введите количество суммируемых членов ряда -> ‘); ReadLn(n); s:=0; for i:=1 to n do s:=s+(1/i); WriteLn(‘Сумма первых ‘,n,’ членов ряда равна: ‘,s); ReadKey; end.

Источник: studassistent.ru