Числа Армстронга — число состоящее из 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 |