Ответы на вопрос:
Var i: integer; x: real; begin x: =10000; while x< 20000 do begin x: =x*1.05; i: =i+1; end; writeln('ответ: ',i); end.
Популярно: Информатика
-
lurudzheva16.05.2022 06:36
-
Артур1505150514.10.2020 02:10
-
natilis10.09.2022 03:10
-
дядялёняййццйуйу04.09.2020 10:48
-
lagutinairisha1ира26.06.2020 00:55
-
frashthefrash07.11.2020 20:00
-
Fosa123.03.2022 17:38
-
bocmanlera12.04.2023 16:00
-
s1cro17.11.2020 12:29
-
toguzov200512.11.2021 03:36