Для знатоков 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. дизайн страницы - на выбор. необходимо поменять фон и наличие картинки/нок

1)

var a,b,x,y: longint;

begin

write("vvedite nachalo i konec otrezka: ");

read(a,b);

write("vvedite x: ");

read(x);

y: =sqr(x)*x;

if (y> a)and(y< b) then write("na dannom otrezke znachenie funkcii ravno ",y) else write("na dannom otrezke net reshenii");

readln

end.

2)

var c,i: byte;

begin

for i: =49 to 215 do

if (i mod 4=0) then c: =c+1;

write("kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);

readln

end.

3)

var i: integer;

p: longint;

for i: =1000 to 9999 do

if (i mod 10=3) then p: =p*i;

write("proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);

readln

end.

4)

var i: byte;

c: integer;

begin

for i: =221 to 778 do

if ((i mod 10)=(i div 100)) then c: =c+1;

write("kolichestvo chisel ravno ",c);

readln

end.

5)

var i: longint;

c: integer;

begin

for i: =10000 to 99999 do

if ((i mod 10)=(i div 10000)) mod 100)div 10)=((i div 1000)mod 10)) then c: =c+1;

write("kolichestvo chisel ravno ",c);

readln

end.

Информация  — от латинского слова "information", что означает сведения, разъяснения, изложение. информацией называют любые данные или сведения, которые кого-либо интересуют. информация — сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые воспринимают информационные системы (живые организмы, машины и др.) в процессе жизнедеятельности и работы. одно и то же информационное сообщение (статья в газете, объявление, письмо, телеграмма, справка, рассказ, чертёж, радиопередача и т.п.) может содержать разное количество информации для разных людей — в зависимости от их предшествующих знаний, от уровня понимания этого сообщения и интереса к нему. в случаях, когда говорят об автоматизированной работе с информацией посредством каких-либо технических устройств, интересуются не содержанием сообщения, а тем, сколько символов это сообщение содержит. применительно к компьютерной обработке данных под информацией понимают некоторую последовательность символических обозначений (букв, цифр, закодированных графических образов и звуков и т. несущую смысловую нагрузку и представленную в понятном компьютеру виде. каждый новый символ в такой последовательности символов увеличивает информационный объём сообщения.