Напишите программу, которая находит все числа армстронга из диапазона от a до b. натуральное число из n цифр называется числом армстронга, если сумма его цифр, возведенных в степень n, равна самому числу.

// f# [< entrypoint> ] let main argv =     let rec ( ** ) x n =         match n < 1 with         | true -> 1         | false -> x * (x ** (n-1))     let rec sumdigits x =         match x with         | x when x < 10 -> (x, 1)         | x ->             let res = x / 10 |> sumdigits             ((res |> fst) + (x % 10), (res |> snd) + 1)     let isarmstrong x =         let digitsinfo = sumdigits x         x = (fst digitsinfo) ** (snd digitsinfo)     let a = system.console.readline() |> system.int32.parse     let b = system.console.readline() |> system.int32.parse     let result = [a..b] |> list.filter (isarmstrong)     printf "result: %a" result     system.console.readkey true |> ignore     0

Қауіпсіздік техникасының ережелерін төмендегі пункттерге бөлуге болады:

1. Жалпы

2. ДК - де жұмыс істеу алдында

3. Жұмыс істеу кезінде

4. Авариялық жағдайларда

5. Жұмысты аяқтағанда

Жалпы қауіпсіздік талаптары:

1. Мұғалімнің рұқсатынсыз құрал - жабдықтарды орнынан қозғауға, сымдарға, розеткаларға, штепсельдің айырына, штекерге тиісуге тыйым салынады.

2. Мұғалімнің рұқсатынсыз сыныпқа кіруге және сыныптан шығуға болмайды.

3. Мұғалімнің рұқсатынсыз сыныпта жүруге болмайды.

4. ДК - де су киіммен және су қолмен жұмыс істеуге болмайды.

5. Корпусы мен сымдарының бүтіндігі бұзылған (ашық) ДК - де жұмыс істеуге тыйым салынады.

6. Үстелге, ДК - дің жанына сумка, портфель, кітап қоюға болмайды. Үстелде тек дәптер мен қалам ғана жатуы керек.

7. Пернетақтаның үстіне ештеңені қоюға болмайды.

8. Компьютер сыныбында жүгіруге, ойнауға, жолдастарыңның көңілін қажетсіз аударуға, бөгде жұмыстарды істеуге тыйым салынады.