83

Помогите) Дано вещественное число A и целое число N (> 0). Вывести все целые степени…

25 февраля 2023

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

категория: информатика



96

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.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...