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

Question

Clrscr;ДАЮ 30 Б

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

Answer 1

var

   x, y, result:real;

begin

   readln(x, y);

   result := 1;

   if y > 0 then

   begin

       while y <> 0 do

       begin

           result := result * x;

           y := y - 1;

       end;

   end

   else if y < 0 then

   begin

       while y <> 0 do

       begin

           result := result * x;

           y := y + 1;

       end;

       result := 1 / result;

   end

   else result := 1;

       

   writeln('x^y = ', result);

end.

Comments

Не скачивайте. Вам дали готовый код. В чем проблема?

---

мне нужно решение,что бы не скачивая этот "

---

#####

---

Я думаю, это слово полностью характеризует Ваш образ мыслей

---

Как этим кодом пользоваться?

---

2 Browze: по-моему она просто издевается. Но в любом варианте тут делать дальше нечего по-моему.

---

Понимаете, мы не можем сказать конкретно, что делать с кодом. Если Вам учитель сказал, чтобы написали его на листке, пишите на листке. Вам было дано решение в двух вариациях. Что вам еще нужно, скажите?

---

Эти решения не соответсвует тому чо мне нужно,ну да ладно я нашла другой источник информации и на том спасибо

---

Вы написали в условии "на паскале" - я вам написал. После вам потребовалось на паскале абц - вам предоставил решение Эникей. Теперь, оказывается, это все не соответствует тому, что вам нужно. Бред, правда. Указывайте тогда конкретнее все нюансы, которые нужно учитывать.