Ответы на вопрос:
Uses crt; procedure step(a: real; n: integer; var st: real); var i: integer; begin st: =1; for i: =1 to n do st: =st*a; end; var x,y,s: real; n: integer; begin clrscr; write('x='); readln(x); write('n='); readln(n); step(x,n,s); y: =s/n; write('y=',y); end.
Популярно: Информатика
-
Sykaper08.03.2020 23:32
-
Cверхъестественное28.11.2022 07:51
-
anastasiaruabenko02.03.2021 04:08
-
НастяЛайк11122.03.2020 10:09
-
дибилон127.12.2020 03:23
-
kochergina70711.08.2020 02:27
-
Лианиа22.12.2022 08:25
-
Islamiks09.06.2021 15:25
-
vani200607.03.2021 09:45
-
Агсим02.10.2020 19:15