Дано число a> 0. вывести наибольшее из чисел k, для которых сумма 1+1/2++1/k
chelovekchelovekov99
1
09.03.2019 22:30
1
Другие вопросы по теме Информатика
wwwcom1
04.10.2019 04:40
АуTист
04.10.2019 04:40
юля2716
15.09.2019 03:30
LumpySpacePrincess01
15.09.2019 03:30
Uliana7003
15.09.2019 03:30
Danila43pirojok
15.09.2019 03:30
almira666ozs336
15.09.2019 03:30
rusakova09
26.03.2020 20:44
TEM1KK
30.05.2019 02:20
Популярные вопросы
- Выражение и найдите его значение: 1) 7,8а + 2,3а - 5а при а =6 2) 2(0,3b + 5) +...
2 - Как разобрать по составу слово понимание?...
3 - Надо написать сочинение для 2 класса. мои летние каникулы 1.вступление: учебный...
3 - Найдите произведение корней уравнения -3x^2-5x+6=0...
3 - Разобрать слово по составу - столетия...
3 - Выражение 1\3 +корень из 7 + 1 \ 3 - корень из 7...
1 - Переведите на анг біз ағылшын тілін 5 жыл бойы оқып келеміз.мен 10 жасымнан бастап...
3 - Опредилите силу натяжения троса при вертикальном поднятии троса . определите силу...
2 - Совокупность монастырей,живущих по одним правилам...
3 - Мне надо найти в жуковского 5-6 устаревших слов...
1
program count
var k:integer;
a,s:real;
begin
read(A);
s:=0;
k:=0;
wile s < a do
begin
k:=K+1
S:=S+1/k
end;
end.