Ответы на вопрос:
Var h,b,k,p,d: real; begin write('введите в, к, п: '); readln(b,k,p); writeln(' h','д': 8); h: =2; repeat d: =100*h/(100-b)/(100-k)/p; writeln(h: 1: 1,d: 10: 3); h: =h+0.1 until h> 4.0001 {вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы} end.
Популярно: Информатика
-
ЭдикБел02.03.2021 03:23
-
RedBalloon05.03.2023 03:16
-
НаsтяПоможет77725.02.2020 02:57
-
бсьсьсьсаьпбкд08.09.2020 22:36
-
костя66307.01.2022 21:21
-
Ритаforever05.05.2023 08:03
-
SofiyaSofia27.08.2022 17:57
-
milayakisa103.01.2023 10:12
-
olegiwanow27.12.2021 16:16
-
Sykaper15.03.2021 18:18