Высокий уровень

@Raheem_ · Регистрация: 04.10.2017

Студворк — интернет-сервис помощи студентам

Используя пять вариантов наборов карт 1)«6», «7», «8» 2)«7», «8», «9» 3)
«6», «9», «10» 4)«6», «9», «8» 5)«7», «6», «10», сыграйте с компьютером.
Введите с клавиатуры свой вариант и сравните с вариантом компьютера,
который создайте, используя функцию генератора случайных чисел (три
цифры от 6 до 10 включительно без повторения цифры в варианте). Если
сумма цифр вашего варианта больше суммы цифр компьютера, вы
выиграли

@Соколиный глаз · 04.10.2017, 18:12

Это?

Pascal
1
2
3
4
5
6
7
8
9
begin
  var My := ReadArrInteger(3);
  
  var &Array := Range(6, 10).ToArray();
  &Array.Shuffle();
  
  Writeln('Ваш вариант (верхний) и загаданный компьютером (нижний):');
  WritelnFormat('Ваш вариант имеет большую сумму чисел, чем загаданный компьютером: {0}.', My.Println().Sum() > &Array.Take(3).Println().Sum());
end.

@Raheem_ · 04.10.2017, 18:13 **[ТС]**

решить задачу нужно с помощью case, но все равно спасибо

@Соколиный глаз · 04.10.2017, 18:16

Увы, этого не было в условии задачи. Да и зачем? Преподаватель требует?

@Raheem_ · 04.10.2017, 18:20 **[ТС]**

Да, мы еще не проходили массивы. Буду признателен, если поможете.

@KiryaXD · 28.11.2019, 17:16

Хоть и поздно, но в будущем кому-нибудь поможет (ДА-ДА БЕЗ ПОВТОРА ЧИСЕЛ В РАНДОМЕ, НО ПИСАТЬ ФИЛЬТР МНЕ ЛЕНЬ (я лишь второй курс))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program igra;
var n,s,sPC: integer;
    a,b,c: integer;
begin
  writeln('Выберите колоду:');
  writeln('1)<6><7><8>');
  writeln('2)<7><8><9>');
  writeln('3)<6><9><10>');
  writeln('4)<6><9><8>');
  writeln('5)<7><6><10>');
  readln(n);
  case n of 
    1: s:=21;
    2: s:=24;
    3: s:=25;
    4: s:=23;
    5: s:=23;
  end;
a:=random(6,10);
b:=random(6,10);
c:=random(6,10);
sPC:=a+b+c;
if s>sPC then writeln('Вы выиграли! У вас:', s ,',а у компьютера:', sPC) else writeln('Повезет в следующий раз!');
end.

@JuriiMW · 28.11.2019, 18:07

Pascal
19
20
21
22
a:=random(6,10);
b:=random(6,10);
c:=random(6,10);
sPC:=a+b+c;

Сообщение от KiryaXD

Хоть и поздно, но в будущем кому-нибудь

… Ни кому не поможет!
вам лень было проверить, что компьютер может смухлевать и дать в сумме до 30!

@KiryaXD · 30.11.2019, 22:46

Этот недочет я знаю... Но я не умею делать фильтр.

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@Raheem_ 0 / 0 / 0 Регистрация: 04.10.2017 Сообщений: 4

	Высокий уровень 04.10.2017, 17:36. Показов 2029. Ответов 7 Метки case (Все метки) Используя пять вариантов наборов карт 1)«6», «7», «8» 2)«7», «8», «9» 3) «6», «9», «10» 4)«6», «9», «8» 5)«7», «6», «10», сыграйте с компьютером. Введите с клавиатуры свой вариант и сравните с вариантом компьютера, который создайте, используя функцию генератора случайных чисел (три цифры от 6 до 10 включительно без повторения цифры в варианте). Если сумма цифр вашего варианта больше суммы цифр компьютера, вы выиграли 0

@Raheem_ 0 / 0 / 0 Регистрация: 04.10.2017 Сообщений: 4
	04.10.2017, 18:13 [ТС]
	решить задачу нужно с помощью case, но все равно спасибо 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	04.10.2017, 18:16
	Увы, этого не было в условии задачи. Да и зачем? Преподаватель требует? 0

@Raheem_ 0 / 0 / 0 Регистрация: 04.10.2017 Сообщений: 4
	04.10.2017, 18:20 [ТС]
	Да, мы еще не проходили массивы. Буду признателен, если поможете. 0

@KiryaXD 0 / 0 / 0 Регистрация: 31.10.2019 Сообщений: 2
	30.11.2019, 22:46
	Этот недочет я знаю... Но я не умею делать фильтр. 0