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

  • Помогите))

    Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N.

Ответы 1

  • var

      A, r:real;

      N, s:integer;

    begin

      s := 1;

      write('a = '); readln(a);

      write('n = '); readln(n);

      r := a;

      while r <= n do

      begin

        writeln(s);

        inc(s);

        r := r * a;

      end;

      if a > n then

        writeln(a , ' в любой степени >= 1 будет больше числа ', n);

    end.

       

     

    • Автор:

      sammy81
    • 5 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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