//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
// F#
[<EntryPoint>]
let main argv =
let getArray =
let rand = new System.Random();
[1..4] |> Seq.map (fun x -> rand.Next 10)
let A = getArray;
let B = getArray;
let C = A |> Seq.mapi (fun i a -> a * a - (B |> Seq.nth i))
printf "%s" (Seq.fold (fun sum x -> sprintf "%s %d" sum x) "" C)
System.Console.ReadKey true |> ignore
0
Эта программа ищет в массиве элементы, имеющие противоположный знак с предыдущими
Как дано в примере - выведет в качестве места смены знака 9, 8-й элемент отрицателен, девятый положителен.
Отделяем по 3 двоичных цифры справа (триады), и пишем 8-ричный код:
1 000 001(2)=101(8);
100 000 000(2) =200(8);
11 111 111(2) =377(8);
1 100(2) =14(8).
<span>Двоичный код:100110110
Текст: <span>І</span></span>