Ответы на вопрос:
Var x,xn: real; n,i: integer; begin readln(x,n); xn: =1; i: =0; repeat i: =i+1; xn: =xn*x; until i=abs(n); if n< 0 then xn: =1/xn; writeln(x: 3: 1,'^',n,' = ',xn: 6: 4); end. пример: 2 -3 2.0^-3 = 0.1250
Популярно: Информатика
-
perfilova089524.12.2020 10:05
-
vladimirnvrskp0845310.10.2022 16:19
-
настена090228.09.2020 04:19
-
sashaboyko999p089tm03.05.2023 09:51
-
vovamandrik060p09ui122.02.2020 23:58
-
golubevaleshka07.08.2021 18:25
-
sad130021.03.2021 12:34
-
MBmagic04.12.2022 10:52
-
TigrNavigator32216.11.2021 07:07
-
fhshjshetubehdh29.07.2020 00:26