Напишите программу(в паскаль) нахождения суммы s=1+1/2+1/3+/n, где n - натуральное число.
Adilkin
2
15.07.2019 22:10
0
Другие вопросы по теме Информатика
MrFoksSuper
30.11.2021 11:48
kristin20
30.11.2021 11:45
susovaanastasia
30.11.2021 11:44
Keklo12
30.11.2021 11:44
Анастасия105
30.11.2021 11:43
Собакамаилру
05.03.2022 13:36
kkkkiiiii
05.03.2022 13:21
erfsdgfRyde
22.03.2020 11:35
akhmedkhatataev95
22.03.2020 11:42
Популярные вопросы
- Вспомни с армией какой страны сражался суворов в конце 18 века...
2 - Для какого из перечисленных полуостровов характерно наименьшее среднегодовое...
1 - Первый множитель 32, произведение равно 3328. чему равен второй множитель?...
1 - Нужно.на рисунке уголмкl=108°,угол qps=72°,мр=21см найдите сторону...
3 - Fill in is/are/was/were.1there _some bread in the bag yesterday ,...
3 - Одна третья отрезка ав 12 см. чему равен весь отрезок?...
2 - Сократить изложение, это ! некоторые считают, что человек взрослеет...
2 - L) happy today с) hasn t a) doesn t b) isn t 12) you yesterday? с)...
3 - №1 : определите массу и объем тела на которое действует сила тяжести...
3 - Надо не хочу два получить 6 дес. 6 ед. 5 дм. 8 см. 12: 2 3 x 2 60-38...
2
begin
Writeln(SeqGen(ReadInteger('n='),x->1/x,1).Sum)
end.
Тестовое решение:
n= 20
3.59773965714368
begin
readln(n);
s:=1;
for var i:=2 to n do s:=s+1/i;
writeln('s=',s);
end.