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

disel

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

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

Похожие записи/страницы:

Leave a Comment