|
|
|
@ -0,0 +1,16 @@
|
|
|
|
|
// For more information see https://aka.ms/fsharp-console-apps
|
|
|
|
|
printfn "Hello from F#"
|
|
|
|
|
|
|
|
|
|
let rec sumDigits n =
|
|
|
|
|
if n < 10 then n
|
|
|
|
|
else (n % 10) + sumDigits (n / 10)
|
|
|
|
|
|
|
|
|
|
[<EntryPoint>]
|
|
|
|
|
let main argv =
|
|
|
|
|
System.Console.WriteLine("Введите число:")
|
|
|
|
|
let number = System.Console.ReadLine() |> int
|
|
|
|
|
|
|
|
|
|
let result = sumDigits number
|
|
|
|
|
System.Console.WriteLine($"Сумма цифр числа {number} равна {result}")
|
|
|
|
|
|
|
|
|
|
0
|