From 90b3ef553b2a174e61856f5653de7d5a26124526 Mon Sep 17 00:00:00 2001 From: Artem-Darius Weber Date: Thu, 17 Apr 2025 13:31:41 +0300 Subject: [PATCH] (lab 5) feat: add Number Operations example --- lab 5/NumberOperations/NumberOperations.fsproj | 12 ++++++++++++ lab 5/NumberOperations/Program.fs | 16 ++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100755 lab 5/NumberOperations/NumberOperations.fsproj create mode 100755 lab 5/NumberOperations/Program.fs diff --git a/lab 5/NumberOperations/NumberOperations.fsproj b/lab 5/NumberOperations/NumberOperations.fsproj new file mode 100755 index 0000000..299cf40 --- /dev/null +++ b/lab 5/NumberOperations/NumberOperations.fsproj @@ -0,0 +1,12 @@ + + + + Exe + net7.0 + + + + + + + diff --git a/lab 5/NumberOperations/Program.fs b/lab 5/NumberOperations/Program.fs new file mode 100755 index 0000000..5a32dfd --- /dev/null +++ b/lab 5/NumberOperations/Program.fs @@ -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) + +[] +let main argv = + System.Console.WriteLine("Введите число:") + let number = System.Console.ReadLine() |> int + + let result = sumDigits number + System.Console.WriteLine($"Сумма цифр числа {number} равна {result}") + + 0