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

Question

83

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

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

ответить

в избранное ссылка

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

kage123 · Accepted Answer

96

kage123

18 февраля 2024

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: