Информатика. pascalabc.net (цикл for)дано целое число n (> 0). найти сумму 1+1/2+1/3++1/n
ZнyцPлaй
1
03.09.2019 02:10
0
Другие вопросы по теме Информатика
ееееее15ег
05.06.2019 08:50
dayana13112007
23.12.2019 07:12
Timpo
23.12.2019 07:12
koteleva
23.12.2019 06:59
astreyalirey
23.12.2019 06:34
Даша5391
23.12.2019 08:24
Убийца967
23.12.2019 08:22
KaterinaFadeeva
23.12.2019 08:17
Популярные вопросы
- Почему люди 21 века должны помнить что было в...
2 - Втреугольнике abc угол a равен 27 градусов, угол b равен 98 градусов....
3 - Ккакому царству относится афтотрофный организм,в клетках которого...
3 - Придумать свой кодирование. буду , если )...
1 - Сколько осей симметрии имеет ромб,квадрат,круг?...
2 - Турист байдарочник проплывая мимо пристани уронил в воду закрытую...
3 - Сможете ли вы объяснить, почему так названы цветы: одуванчик, колокольчик,...
2 - 1.напишите все двузначные числа, разложение которых на простые множители...
2 - Строительный мусор летит в контейнер в течение 1,2 с. на какой высоте...
3 - 8. радиус вписанной в равносторонний треугольник окружности равен...
3
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s:=s+1/i;
Writeln('S=',s)
end.
Пример
n= 18
S=3.49510807819631