Вычислить сумму целых чисел кратных 4 в интервале от 0 до 200

0 голосов
35 просмотров

Вычислить сумму целых чисел кратных 4 в интервале от 0 до 200


Информатика (22 баллов) | 35 просмотров
Дан 1 ответ
0 голосов

// F#
[]
let main argv =
    let sum =
        [0..200]
        |> Seq.where (fun x -> x % 4 = 0)
        |> Seq.fold (fun sum x -> sum + x) 0
    System.Console.WriteLine sum
    System.Console.ReadKey true |> ignore
    0

(1.4k баллов)