Напишите игру «рулетка». в текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9. если 4 или 5 — игрок получает 50 очков, если 3 или 6 — у игрока вычитаются 50 очков, если 2 или 7 — игрока, набранные прежде, умножаются на два, если выпадает 1 или 8 — игрок становится банкротом (звуковой сигнал), и если выпадает 0 или 9 — игрок получает 0 . надо написать команду условий( для паскаля)

268

310

Посмотреть ответы 2

Ответы на вопрос:

sidletskiy

Информатика

4,7(47 оценок)

uses crt; var x,s: integer; c: char; b: boolean; beginwhile b=false do beginx: =random(10); if (x=4) or (x=5) then s: =s+50; if (x=3) or (x=6) then s: =s-50; if (x=2) or (x=7) then s: =s*2; if (x=1) or (x=8) then sound(1000); writeln('you points - ',s,' ',x); if (x=1) or (x=8) or (s< 0) or (c='no') then b: =true; if b=false then beginwriteln('continue? enter "no" to exit.'); readln(c); end; end; delay(10000); nosound; end.