Ответы на вопрос:
Var s,p,sum: real; k: integer; begin write('s = '); readln(s); write('p = '); readln(p); k: =0; sum: =s; while sum< 1000000 do begin k: =k+1; sum: =sum*(100+p)/100; end; writeln('k = ',k); end. пример: s = 400000p = 10k = 10
Популярно: Информатика
-
ViolettaLife25.08.2021 07:44
-
ghkbkb28.01.2022 16:59
-
alinana55408.11.2022 05:06
-
NEO17829.05.2021 12:09
-
gulkogulkovno06.09.2021 20:51
-
FFFFFF122322.01.2022 10:48
-
beliy11232917.08.2022 10:45
-
lhfuty06.10.2021 09:30
-
тэ10л04.03.2023 14:49
-
Niks66627.05.2020 19:17