Ответы на вопрос:
Program gt; var i, n: integer; a,min,p: real; begin read(n); read(a); p: =1; for i: =1 to n do begin p: =-a*p; if(p< min)or(i=1)then min: =p; end; writeln(min); end.
Популярно: Информатика
-
alekszhirnovp06n4r06.02.2021 15:52
-
inga2006228.03.2021 08:09
-
Qwertyttt06.05.2022 10:14
-
Anastasia1441710.04.2023 10:29
-
Токаарічіна03.05.2022 22:41
-
tsts8420.09.2020 21:51
-
bugumot22.01.2021 08:00
-
istamov977712.09.2021 15:32
-
zavarinaira10004.01.2023 15:42
-
перйзат13.02.2021 01:25