| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 09:34:30 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=660a749949d4d464a468f006ea4970a1942db1c68649221c00a0a1b68375ad71a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22_0yTYSugg8Y9pIdkeHYlBs1T0_kPogI6%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cd5cac0c0aa9b7-BLR
Logika_сама игра (чет сломалась)... - Pastebin.com
SHARE
TWEET
Logika_сама игра (чет сломалась)...
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ## uses crt;
- // начало + вариант пользователя
- var (b,r,g,y,m,c) := (' BB',' RR',' GG',' YY',' MM',' CC');
- var user_lst := new List<string>;
- ///
- Println('Введите любые 4 цвета из предложенного списка:');
- Println('C(cyan),B(blue),R(red),M(magenta),G(green),Y(yellow)');
- Println('В игре участвуют только 4 цвета!');
- ///
- var yes_no := ReadString('Можно начинать игру? Напишите (yes/no) y/n: ');
- ///
- if (yes_no = 'y') or (yes_no = 'Y') then
- begin
- for var i := 1 to 4 do
- begin
- Print($'Введите {i}-ый цвет (строчными буквами по названию цвета): ');
- user_lst.Add(ReadString());
- end;
- end
- else
- begin
- Println('Игра окончена!');
- exit
- end;
- // вариант компьютера (не видно пользователю)
- var auto_lst := new List<string>;
- auto_lst.Add(b);
- auto_lst.Add(r);
- auto_lst.Add(g);
- auto_lst.Add(y);
- auto_lst.Add(m);
- auto_lst.Add(c);
- auto_lst := auto_lst.Shuffle;
- auto_lst.RemoveAt(0);auto_lst.RemoveAt(0);
- //////////////////////////////////////////////////////////
- Print('Ваш вариант: '); Println(user_lst);
- if (user_lst[0] = b)
- then
- begin
- TextBackground(crt.LightBlue);
- TextColor(crt.Black);
- Print(' BB');
- end
- else if (user_lst[0] = r)
- then
- begin
- TextBackground(crt.LightRed);
- TextColor(crt.Black);
- Print(' RR');
- end
- else if (user_lst[0] = g)
- then
- begin
- TextBackground(crt.LightGreen);
- TextColor(crt.Black);
- Print(' GG');
- end
- else if (user_lst[0] = y)
- then
- begin
- TextBackground(crt.Yellow);
- TextColor(crt.Black);
- Print(' YY');
- end
- else if (user_lst[0] = m)
- then
- begin
- TextBackground(crt.LightMagenta);
- TextColor(crt.Black);
- Print(' MM');
- end
- else if (user_lst[0] = c)
- then
- begin
- TextBackground(crt.LightCyan);
- TextColor(crt.Black);
- Print(' CC');
- end;
- // индекс 1
- if (user_lst[1] = b)
- then
- begin
- TextBackground(crt.LightBlue);
- TextColor(crt.Black);
- Print(' BB');
- end
- else if (user_lst[1] = r)
- then
- begin
- TextBackground(crt.LightRed);
- TextColor(crt.Black);
- Print(' RR');
- end
- else if (user_lst[1] = g)
- then
- begin
- TextBackground(crt.LightGreen);
- TextColor(crt.Black);
- Print(' GG');
- end
- else if (user_lst[1] = y)
- then
- begin
- TextBackground(crt.Yellow);
- TextColor(crt.Black);
- Print(' YY');
- end
- else if (user_lst[1] = m)
- then
- begin
- TextBackground(crt.LightMagenta);
- TextColor(crt.Black);
- Print(' MM');
- end
- else if (user_lst[1] = c)
- then
- begin
- TextBackground(crt.LightCyan);
- TextColor(crt.Black);
- Print(' CC');
- end;
- // индекс 2
- if (user_lst[2] = b)
- then
- begin
- TextBackground(crt.LightBlue);
- TextColor(crt.Black);
- Print(' BB');
- end
- else if (user_lst[2] = r)
- then
- begin
- TextBackground(crt.LightRed);
- TextColor(crt.Black);
- Print(' RR');
- end
- else if (user_lst[2] = g)
- then
- begin
- TextBackground(crt.LightGreen);
- TextColor(crt.Black);
- Print(' GG');
- end
- else if (user_lst[2] = y)
- then
- begin
- TextBackground(crt.Yellow);
- TextColor(crt.Black);
- Print(' YY');
- end
- else if (user_lst[2] = m)
- then
- begin
- TextBackground(crt.LightMagenta);
- TextColor(crt.Black);
- Print(' MM');
- end
- else if (user_lst[2] = c)
- then
- begin
- TextBackground(crt.LightCyan);
- TextColor(crt.Black);
- Print(' CC');
- end;
- // индекс 3
- if (user_lst[3] = b)
- then
- begin
- TextBackground(crt.LightBlue);
- TextColor(crt.Black);
- Print(' BB');
- end
- else if (user_lst[3] = r)
- then
- begin
- TextBackground(crt.LightRed);
- TextColor(crt.Black);
- Print(' RR');
- end
- else if (user_lst[3] = g)
- then
- begin
- TextBackground(crt.LightGreen);
- TextColor(crt.Black);
- Print(' GG');
- end
- else if (user_lst[3] = y)
- then
- begin
- TextBackground(crt.Yellow);
- TextColor(crt.Black);
- Print(' YY');
- end
- else if (user_lst[3] = m)
- then
- begin
- TextBackground(crt.LightMagenta);
- TextColor(crt.Black);
- Print(' MM');
- end
- else if (user_lst[3] = c)
- then
- begin
- TextBackground(crt.LightCyan);
- TextColor(crt.Black);
- Print(' CC');
- end;
- readln()
- // что-то затык произошёл, программа не идёт дальше...
Advertisement
Add Comment
Please, Sign In to add comment
-
✅ Make $2500 in 20 minutes⭐⭐⭐ N
JavaScript | 1 sec ago | 0.24 KB
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 8 sec ago | 0.24 KB
-
⭐✅ Online Marketplace Exploit ✅ NEVER SEEN BE...
JavaScript | 17 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 1
JavaScript | 22 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 28 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ X
JavaScript | 33 sec ago | 0.24 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 37 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ P
JavaScript | 43 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
