clrscr;ДАЮ 30 Б

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

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

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

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

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

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

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.