ДАЮ 30 Б Составить программу ** языке Паскаль,возведения числа х в степень числа y.

Question

ДАЮ 30 Б

Составить программу на языке Паскаль,возведения числа х в степень числа y.

Answer 1

Хорошо, если вы не используете функции и не используете библиотеки(типа 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.

Comments

и не надо репортить в некст раз, ИМЕННО ТЫ ПРОСИШЬ ПОМОЩИ, а не я

---

Где написано, что х и у - только целые? Что будет при отрицательном у ?

---

Не программа - а так, насмешка.