Дано действительное положительное число a и целое число n. Напишите программу для вычисления an с вызовом рекурсивной функции power(a, n).

Входные данные: действительное положительное число a и целое число n.

Выходные данные: значение степени an.

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.

конечно .pas! простой вопрос!

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну