Напишите игру «рулетка». в текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9. если 4 или 5 — игрок получает 50 очков, если 3 или 6 — у игрока вычитаются 50 очков, если 2 или 7 — игрока, набранные прежде, умножаются на два, если выпадает 1 или 8 — игрок становится банкротом (звуковой сигнал), и если выпадает 0 или 9 — игрок получает 0 . надо написать команду условий( для паскаля)
Panovamasha33
3
30.03.2019 11:50
0
Другие вопросы по теме Информатика
muradir1102
01.09.2019 15:00
Robingood135
01.09.2019 15:00
polinaskibina
17.06.2019 18:20
Hicka
17.06.2019 18:20
Аня4678
22.03.2021 19:01
самира223
22.03.2021 19:09
720612
28.04.2020 16:24
gdhdf
28.04.2020 16:24
154Dance3
28.04.2020 16:25
Популярные вопросы
- Впервые исследовал янтаря электризоваться древнегреческий философ фалес...
3 - Волна распространяется со скоростью 6м/с при частоте 4гц. чему равна длина...
3 - Как узнать сколько решений имеет неравенство вида (2x+1)(x-6)больше нуля...
3 - Укати и пети 22 мая день рождения в один день,а у серёжи 1 июля . на сколько...
2 - Запишите в форме плана последовательность действий при определении их окончаний...
1 - Анык,алыс,акылдас созине туракты соз тиркес табу...
1 - Составьте небольшой расаказ эссе на тему бос уақыт...
1 - Примеры ступенчатой и не ступенчатой диссоциации...
2 - Вычисли записывая решения по действиям 309*2+516: 4= 7800-29*4+7700= 295:...
3 - Бассейн,заполненный водой,имеет следующие размеры: высота 40см ширина 50см...
3
uses crt;
var x,s:integer;
c:char; b:boolean;
begin
while b=false do begin
x:=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 begin
writeln('Continue? Enter "No" to exit.');
readln(c);
end;
end;
delay(10000);
nosound;
end.