Найти все числа Армстронга состоящие из двух, трех и четырех цифр

Категория: Basic
2011-10-26 14:22:02

Числа Армстронга - число состоящее из k цифр, у которых сумма k-x степеней его цифр равна самому числу. Например 153=1^3+5^3+3^3. Нахождение числа Армстронга оформить в виде подпрограммы функции.

code: #basic
DECLARE FUNCTION is_armstrong (n)
INPUT "Введите число: ", t
FOR i = 1 TO t
IF is_armstrong(i)=1 THEN PRINT i
NEXT i
 
FUNCTION is_armstrong (n)
m = n
k = 1
s = 0
WHILE m > 9 DO
k = k + 1
s = s + (m MOD 10)
m = m \ 10
LOOP
s = s + m
IF n = EXP(k * LOG(s)) THEN is_armstrong = 1 ELSE is_armstrong = 0
END FUNCTION

автор: БурундукЪ

Поделиться:

Похожие статьи:

теги: функции, подпрограмма, Числа Армстронга, qbasic, студенты