===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.
2. из математики
1) чтобы сложить два числа с разными знаками нужно из большего слагаемого вычесть меньшее, и поставить тот знак который больше
примеры: -2+6=3
2)чтобы вычесть два числа с разными знаками нужно сложить их и поставить знак минус
-6-8=-14
из русского языка
1)<span>Глаголы </span><span>совершенного вида</span><span> указывают на </span><span>завершенность действия</span><span>, его результат, конец действия или его начало. В неопределенной форме они отвечают на вопрос </span><span>что сделать?</span><span>. </span>
<span>Например: </span><span>добежать, купить, зазвенеть, построить, запеть.</span><span> </span>
<span><span> </span><span>В изъявительном наклонении</span><span> глаголы обозначают действия, которые реально происходят, происходили или будут происходить:</span>
<span>пишу, писал, написал, буду писать, напишу.</span></span>
// F#
[<EntryPoint>]
let main argv =
let getRandomCollection n =
let rand = new System.Random()
Array.map (fun x -> rand.Next(-10, 10)) [| 1..n |]
let inputArray = getRandomCollection 15
printf "source array: %A\n" (inputArray |> Array.toList)
// First part
printf "numberToCheckOnEqual: "
let numberToCheckOnEqual = System.Console.ReadLine() |> System.Int32.Parse
let indecesEqualsToNumber =
inputArray
|> Array.mapi (fun i x -> (x, i))
|> Array.filter (fun (x, i) -> x = numberToCheckOnEqual)
|> Array.map (fun (x, i) -> i)
|> Array.toList
printf "%d equals to %d: %A\n" (indecesEqualsToNumber |> List.length) numberToCheckOnEqual indecesEqualsToNumber
// Second part
printf "a: "
let a = System.Console.ReadLine() |> System.Int32.Parse
printf "b: "
let b = System.Console.ReadLine() |> System.Int32.Parse
let sum =
inputArray.[a..b]
|> Array.sum
printf "sum of array [%d..%d]: %d\n" a b sum
// Last part
let finalArray =
inputArray
|> Array.map (fun x -> if x < 0 then x*x else x)
printf "final array: %A" finalArray
System.Console.ReadKey true |> ignore
0
• заголовок программы,
• раздел объявлений и соглашений (декларационная часть),
• раздел текстов процедур и функций,
• тело программы (обязательная часть).
600мб=600 000кб
600 000 КБ:500=120 фотографий всего
120×6=720с понадобиться
Ответ:720секунд