Ответы на вопрос:
Var n,a: integer; x,st: real; begin write('введите степень n ==> '); readln(n); write('введите вещественное число x ==> '); readln(x); st: =x; for a: =1 to n-1 do begin st: =x*st; end; writeln('степень ',n,' числа ',x,' = ',st); end.
Популярно: Информатика
-
Крути22803.05.2022 20:13
-
MadMax2227727.06.2022 12:26
-
zu3vaelina05.05.2023 05:46
-
GevorgStepanyan06.04.2022 17:47
-
an2015tep071hf23.01.2021 10:35
-
shahriyorchikozb8ts06.01.2021 18:05
-
isa222111.05.2023 01:36
-
Gulnazzikon22.06.2021 02:53
-
irichkagolikova02.02.2020 00:05
-
Гаргульчик30.12.2020 17:41