< >

1. Даны числа от 1 до N.Найти S: 1/2+1/3+…+1/N

Ответы

Ответ дал: Mishka28
0

var

i,n:integer;

s:real;

begin

repeat

write ('N = ');readln(n);

until (n>0);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln ('S = ',s:0:4);

readln;

end.

Похожие вопросы
Русский язык
2 года назад
Сочинение. На тему " Какой учебный предмет я больше всего люблю и почему" Сочинение расуждение   мой любимый предмет математика
Русский язык
2 года назад
образуя с каждым словом из скобок словосочетания.Как будешь выбирать окончания.Подойди к \печь и печка\, ехать на \лошадь и лошадка\, брасть по \горсть и горсточка\,читать о \мышь и мышка\
Математика
7 лет назад
Помогите пожалуйста решить пример номер(о)
Алгебра
7 лет назад
Упростите выражение ПОМОГИТЕЕЕЕ!!
Алгебра
10 лет назад
у треугольника со сторонами 15 и 5 проведены высоты к этим сторонам. высота, проведенная к первой стороне, равна 1. чему равна высота, проведенная ко второй стороне?
Математика
10 лет назад
номер 1. Магазин покупает товар оптом и при розничной продаже увеличивает его цену на 12% . По какой цене магазин продаёт товар, если он купил его по цене: а) 3000 р. б) 2250 р. в) 11000р. г) 35000
Физика
10 лет назад
на нитках подвешены 3 заряженных шарика. В какую сторону отклонится первый шарик, если шарики 2 и 3 удерживаются неподвижно? Почему?
Математика
10 лет назад
С первого куста сняли 6 помидоров а со второго на 3 помидора больше. Сколько помидоров сняли со второго куста?