Написать программу,которая вычисляет сумму n- первых членов ряда 1+1/2+1/3+1/4+ количество суммируемых членов ряда задаётся во время работы программы.
марго170
1
03.09.2019 00:50
0
Другие вопросы по теме Информатика
bogdannazarenkomen
01.05.2021 13:51
Lotek
01.05.2021 13:53
KOnyaHA
01.05.2021 13:54
Sasha11111222
01.05.2021 13:55
Dasha9716
01.05.2021 14:20
Expert228666
01.05.2021 14:25
masha1373
01.05.2021 14:38
llegog
01.05.2021 14:56
Андрей11111111111151
01.05.2021 15:08
Популярные вопросы
- ОТВЕТЬТЕ Как Петька воспринимает этот мир? В рассказе Л.Н. Андреева...
1 - Сколько третичных атомов углерода в молекуле 2,2,3-триметилбутана?...
3 - 16 - 10 =17 - 6 =18 - 6 =14 - 5 =ית19 - 10 =12 - 5 =16 -2 =12-5...
1 - Визначні музичні твори українських композиторів другої пол. XVIII...
2 - Во Александр будучи членом биологического кружка поставил опыт...
3 - Как вы понимаете грустный смех . Объясните на примере рассказа...
3 - Друзья путешествовали на моторной лодке по реке. Сначала они спустились...
2 - ребятаОпишите развитие стран южной америки в 21 веке, перспективы...
1 - Що таке сюжет твору? поясніть на прикладі, як ви розумієте це...
2 - Масса ящика вместе с фруктами равна 20 кг Масса фруктов равна...
3
n:integer;
S:real;
Begin
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+1/n;
WriteLn('S = ',S)
End.