Написать программу которая для заданного натурального числа n вычисляет сумму 1+1/1+2+1/1+2+3+···+1/1+2+···n в паскале .
Написать программу которая для заданного натурального числа n вычисляет сумму 1+1/1+2+1/1+2+3+···+1/1+2+···n в паскале .
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumOfSeries;
var
n, i, j: integer;
sum: real;
begin
sum := 0;
write('Enter a natural number: ');
readln(n);
for i := 1 to n do
begin
for j := 1 to i do
begin
sum := sum + 1/j;
end;
end;
writeln('Sum of the series: ', sum:0:2);
end.