Дано вещественное число А и целое число N (N>0). Найти А в степени N

Aizere20060304 Aizere20060304    2   19.04.2020 16:22    0

Ответы
Lenkoo12 Lenkoo12  13.10.2020 11:53

program one;

var

 a,p : real;

 N,i : integer;

 begin

   p:= 1;

   writeln('Введите число, которое мы будем возводить в степень: ');

   readln(a);

   writeln('Введите степнь, в которую Вы хотите возвести число');

   readln(N);

   for i := 1 to N do

     p := p * a;

write(p);  

 end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика