Ответы на вопрос:
var
a : real;
i : byte;
begin
a : = 50000;
for i : = 1 to 5 do
a : = 1.08 * a;
writeln (a);
end.
Популярно: Информатика
-
viper99818.12.2021 06:09
-
DariaRain729.06.2021 10:00
-
777stepan77724.01.2020 13:50
-
НастяStar104.04.2020 12:03
-
4ae444ka01.11.2022 14:17
-
тобик5555555530.04.2023 14:15
-
abeloglazova89117.10.2022 18:43
-
Dimaj11.05.2023 06:40
-
vxtrxxx25.03.2022 23:58
-
Rus992212.07.2021 20:35