Предмет: Информатика,
автор: ionov5959
вычислить сумму целых чисел кратных 4 в интервале от 0 до 200
Ответы
Автор ответа:
1
// F#
[<EntryPoint>]
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
[<EntryPoint>]
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
Интересные вопросы