Задать вопрос Регистрация
Помочь другим

  • ПОМОГИТЕ ПЛИЗ!!!

    Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз).

Ответы 2

  • 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.

  • Program stepen;Var a: real; b, i, n: integer;BeginReadln (a, n);b:=a;For i:=2 to n doa:=a*b;Writeln(a);Readln;End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years