Впеременной x записано некоторое число. записать в переменную y значение 10, если x чётное и записать -10, если x нечётное. оператор if использовать не разрешается.

Microsoft Qbasic 1.0

INPUT x#
Y = (-1) ^ (x# MOD 2) * 10
PRINT Y

Объяснение:

Если после переустановки Windows 7 или 8.1, а также после их обновления до Windows 10 ваш компьютер не видит второй жесткий диск или второй логический раздел на диске (диск D, условно), в этой инструкции вы найдете два простых решения проблемы, а также видео руководство по ее устранению. Также описываемые должны если вы установили второй жесткий диск или SSD, он виден в БИОС (UEFI), но не виден в проводнике Windows.

В случае же если второй жесткий диск не показывается в БИОС, а произошло это после каких-либо действий внутри компьютера или просто после установки второго жесткого диска, то рекомендую в первую очередь проверить, а правильно ли все подключено:

1. Если число оканчивается на 6, то оно четное согласно признаку делимости на 2, поэтому проверка на четность не нужна.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),20,80); a.Println;
  var k:=a.Where(t->t mod 10=6).Count;
  if k>0 then Writeln(k)
  else Writeln('Нет')
end.

Пример
n= 15
47 53 73 26 75 64 70 32 27 80 29 53 20 62 66
2

2. Достаточно много раз нужно запускать задачу, чтобы суметь получить случайную последовательность с парой одинаковых соседних элементов...

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,0,100); a.Println;
  var k:=a.Pairwise.Where(t->t[0]=t[1]).Count;
  if k>0 then Writeln(k)
  else Writeln('Нет')
end.

Пример
60 41 87 87 95 75 72 32 8 52
1