Подсчитайте в переменной s сумму чисел 7/5; 7/10; 7/20; 7/40; 7/80 и так далее до тех пор, пока сумма не превысит 18. Напишите программу на Pascal
DrNick
1
25.04.2020 19:53
25
Другие вопросы по теме Информатика
Ilona9595
02.04.2022 11:27
Bogatuk2005
17.02.2021 07:45
бабушка19773
17.02.2021 07:38
alinka57d
17.02.2021 07:37
andrey2085
17.02.2021 07:37
DavidWorld
17.02.2021 07:36
плщорршелит
17.02.2021 07:35
Oneganin
13.09.2019 06:20
kreatuv41kp06t42
13.09.2019 06:20
Популярные вопросы
- Знайти значення виразу 70т - 489ц 35кг=...
2 - Определить индукцию магнитного поля на которое действует тело 300н проводник...
3 - 924. найдите значение выражения: а) 0,7- 0,2- 1,6+ 0,3-0,4., б) -3+ 0,9-...
2 - Розбір за будовою слова: зображення припускають, романтичність, несказанний,...
2 - От двух пристаней,между которыми 320 км, одновременно отправились навстречу...
3 - 1.каким образом была связана с природой жизнь древних славян? 2.расскажи...
1 - Вкабинете имеется одна розетка и три удлинители каждый для пяти потребителей...
1 - Или им в каком падеже употреблены в словосочетаниях прилагательные и выпиши...
1 - Вспомни название животных, которых тоже считают умными. примеры и доказательство...
1 - Швейном цеху шьют носовые платки квадратной формы со стороной 35 см сколько...
1
program Hello;
var i : Integer;
sum:real;
begin
i := 5;
sum := 7 / i;
while sum < 18 do
begin
i := i * 2;
sum := sum + 7 / i;
end;
writeln(sum);
writeln(i);
end.