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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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