Ответы на вопрос:
хорошо, если вы не используете функции и не используете библиотеки(типа crt)
var i, y, x, xy: integer;
begin
write('x=');
readln(x);
write('y=');
readln(y);
xy: =x;
for i: =1 to (y-1) do
begin
xy: =xy*x;
end;
writeln(xy);
end.
Популярно: Информатика
-
Кристина108156717.10.2021 17:29
-
Diana45111112.04.2023 03:22
-
Znv25060502.10.2022 19:38
-
Никита0Скорая0Помощь30.01.2022 18:22
-
maximpopov200104.09.2021 14:14
-
KeNjICannel08.07.2022 12:45
-
hope90317.07.2021 18:54
-
Мелочь8321.06.2021 18:21
-
Лейла004412.06.2022 00:03
-
WDGa5ter02.01.2020 06:44