Clrscr; ДАЮ 30 Б

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

Question

Информатика

Ганися

23 мая, 14:41

Clrscr; ДАЮ 30 Б

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

+5

Ответы (1)

Знаете ответ на вопрос?

Феоктисий · 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.

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

Clrscr; ДАЮ 30 Б

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