Для знатоков javascriptреализовать игровую программу «однорукий бандит» (игровой автомат).1. в начале игры пользователю выдаётся 5000 кредитов (очков).2. случайным образом на барабанчиках выпадает три значения от 0 до 7.3. призовые комбинации: 0 0 0, 1 1 1, 2 2 2, 3 3 3, 4 4 4, 5 х х, 5 5 х, 5 5 5, 7 х х,7 7 х, 7 7 7 (на месте х может быть любая цифра).4. штрафная комбинация: 6 6 6.5. все остальные комбинации нейтральные.6. в любом случае, за показ новой комбинации с игрового счета пользователяснимается 100 очков.7. если выпадает три одинаковые цифры (кроме 666) игроку добавляется 300очков.8. если выпадает две одинаковые цифры подряд (например 255) игрокудобавляется 200 очков.9. если выпадает штрафная комбинация игрок теряет 300 очков.10. игра заканчивается поражением, если деньги закончились.11. игра заканчивается победой, если выпадает джек-пот (7 7 7).12. ник игрока. любым реализовать ввод имени игрока и показ его наэкран. например, кроме кнопки старт и чисел на экране у пользователя естькнопка “вход”. по нажатию на нее открывается окно ввода текста (имяпользователя). затем имя пишется на html странице.13. дизайн страницы - на выбор. необходимо поменять фон и наличие картинки/нок

PascalABC.NET

#1

function Y(x:integer) := 2*((x+2)**2)+5.5*(x+2) - 3;

begin

 var Xes := Range(3, 25);

 Xes.Tabulate(p -> Y(p)).Println;

end.

#2

const PASS = '123ab';

begin

 var rpass := Readstring('Pass: ');

 while rpass <> PASS do begin

   rpass := Readstring('Wrong pass. Try again: ');

 end;

 print('Correct password. Welcome');

end.

#3

begin

//Сначала читаем цифру, которую надо удалить, а уже потом число.

 var X := ReadChar();

 var number := ReadInteger().ToString.ToCharArray.ToList;

 while number.Contains(X) do number.Remove(X);

 number.JoinIntoString.Println;

end.

#4

begin

 var X := ReadInteger();

 Print((x div 100)+(x mod 100));

end.

Объяснение:

PascalABC.NET

begin

 var a := ArrGen(10, i -> i in [0, 2, 6] ? 2 * (i + 1) + 10 :

     (i - 7) * 3);

 Writeln('массив');

 var m := a.Println.Where(p -> p.IsEven).Average;

 Write('sr=', m)

end.

begin

 var a := ArrGen(10, i -> (i + 1) mod 3 = 0 ? -i : Sqr(i + 2));

 Writeln('массив');

 var s := a.Println.Sum;

 Writeln('sr=', s);

 a.Transform(p -> p < 0 ? s : p);

 Writeln('новый массив');

 a.Print

end.

begin

 var a := ArrGen(15, i -> i < 7 ? i * (i + 6.1) + 5.1 : i - 4.7);

 Writeln('массив');

 foreach var k in a do

   Write(k:7:2);

 Writeln;

 var p := 1.0;

 for var i := 2 to 4 do

   p *= a[i];

 Write('p= ', p:0:3)

end.

Индексы в массивах PascalABC.NET идут не от единицы, а от нуля, как во всех современнных языках программирования. Поэтому исходные формулы пришлось немного преобразовать.

Примеры вывода не показаны, поскольку они точно совпадают с заданными.