Напишите игру «Рулетка»

Question

Напишите игру «Рулетка». В текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9. Если выпадают 4 или 5 — игрок получает 50 очков, если выпадают 3 или 6 — у игрока вычитаются 50 очков,

Answer 1

48

surbass

15 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: