Ответы на вопрос:
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
Популярно: Информатика
-
AkameTop06.03.2023 19:25
-
Vitas4010.01.2020 09:43
-
alexaaa221.06.2021 05:35
-
llll4115.08.2021 13:26
-
duwie29.01.2022 15:27
-
needhomework1919.01.2022 04:25
-
OlyaPo118.09.2022 03:32
-
arave109.08.2021 20:49
-
khsush20.01.2022 17:45
-
asdfghjkl6tygb03.03.2023 07:49