ПОМОГИТЕ ПЛИЗ!!! Задачи...

Тема в разделе "Информатика", создана пользователем Dangerous, 17 фев 2010.

  1. Dangerous

    Dangerous New Member

    ПОМОГИТЕ ПЛИЗ!!! Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An = A•A•...•A (числаA перемножаются N раз).
     
    Dangerous, 17 фев 2010
    #1
  2. Arina_Gr

    Arina_Gr New Member

    function Pow(a:real; n:integer):real;
    var
      r:real;
      i:integer;
    begin
      r := 1;
      for i := 1 to n do
        r := r * a;
      Pow := r;
    end;
     
    var
      a:real;
      n:integer;
    begin
      write('a = '); readln(a);
      write('n = '); readln(n);
      writeln(a, ' ^ ', n ,' = ', Pow(a, n));
    end.
     
    Arina_Gr, 17 фев 2010
    #2

Поделиться этой страницей

Наша группа