Ответы на вопрос:
Program gt; var a,b,p: real; i: integer; begin a: =10000; p: =7.4; for i: =1 to 8 do begin a: =a+a*p/100; end; writeln(a); end.
Популярно: Окружающий мир
-
Ametov200729.12.2020 00:54
-
dimaandreevich28.06.2022 19:07
-
pawskayaliolya30.10.2021 06:43
-
natakubkina7816.04.2021 13:47
-
Бота15714.09.2020 13:17
-
anna354820212.12.2022 23:58
-
ivanbudaev199321.06.2021 01:36
-
alenasher1try21.02.2021 00:19
-
ирадаарасханова06.01.2023 17:55
-
MUSIC55524.07.2020 18:21