Nums = input()nums = int(nums)if nums <= 10000 and nums >=1: mass= str(nums) k = int(mass[0]) n= int(mass[-1]) if k < n : print("первый меньше") elif k > n : print("первый больше") else: print("равны")else: print("Не удоволетворяет диапазону")
Программа с помощью вектора отправлена
// 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
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, i -> Sqr(i + 1), 1).Sum.Println
end.
12 * 2= 24
24 * 2=48
48-3=45
45-3=42
42-3=39
39-3=36
36-3=33