Покер

@MavGic · Регистрация: 07.02.2013

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

Задано масив з п’яти чисел. Серед них : якщо однакові 5, то надрукувати число 1, інакше якщо однакові 4, то надрукувати число 2, інакше якщо однакові 3 та 2, то надрукувати число 3, інакше якщо однакові 3, то надрукувати число 4, інакше якщо однакові 2 і 2, то надрукувати число 5, інакше якщо однакові 2, то надрукувати число 6, інакше надрукувати число 7.

Новичок · 01.04.2013, 16:22

Перевод:

Задан массив из пяти чисел.Среди них:
если 5 одинаковых,то вывести число 1,иначе
если 4 одинаковых,то вывести число 2,иначе
если 3 одинаковых и 2 одинаковых,то вывести число 3,иначе
если 3 одинаковых,то вывести число 4,иначе
если 2 одинаковых и 2 одинаковых(но других),то вывести число 5,иначе
если 2 одинаковых,то вывести число 6,иначе вывести число 7.

@MavGic · 01.04.2013, 20:12 **[ТС]**

Сообщение от Новичок

Перевод:

Задан массив из пяти чисел.Среди них:
если 5 одинаковых,то вывести число 1,иначе
если 4 одинаковых,то вывести число 2,иначе
если 3 одинаковых и 2 одинаковых,то вывести число 3,иначе
если 3 одинаковых,то вывести число 4,иначе
если 2 одинаковых и 2 одинаковых(но других),то вывести число 5,иначе
если 2 одинаковых,то вывести число 6,иначе вывести число 7.

Хах, забыл перевести, задач много.
Спасибо!

Новичок · 01.04.2013, 20:14

MavGic,задача одна,просто условие большое.

@MavGic · 02.04.2013, 09:23 **[ТС]**

Сообщение от Новичок

MavGic,задача одна,просто условие большое.

У меня задач много)

@versa4e · 02.04.2013, 13:26

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
const
  n=5;
var
  a:array[1..n] of integer;
  i,j,buf,dif,curSimilar,maxSimilar:integer;
begin
  for i:=1 to n do
    begin
      write('[',i,']=');
      readln(a[i]);
    end;
  for i:=2 to n do
    begin
      buf:=a[i];
      j:=i-1;
      while (j>0) and (a[j]>buf) do
        begin
          a[j+1]:=a[j];
          dec(j);
        end;
      a[j+1]:=buf;
    end;
  dif:=1;
  curSimilar:=1;
  maxSimilar:=0;
  for i:=2 to n do
    if a[i]=a[i-1] then
      inc(curSimilar)
    else
      begin
        if curSimilar>maxSimilar then
          maxSimilar:=curSimilar;
        curSimilar:=1;
        inc(dif);
      end;
  if curSimilar>maxSimilar then
    maxSimilar:=curSimilar;
  write('Result=');
  case dif of
    1: writeln(1);
    2:
      if maxSimilar=3 then
        writeln(3)
      else
        writeln(2);
    3:
      if maxSimilar=3 then
        writeln(4)
      else
        writeln(5);  
    4:writeln(6);
    5:writeln(7);  
  end;
end.

@Geekman · 11.04.2014, 23:46

А если идет 5 последовательных карт, что тогда?

Новичок · 11.04.2014, 23:47

Geekman, да какие еще последовательные?!

Сообщение от Новичок

если 5 одинаковых,то вывести число 1,иначе

@Geekman · 12.04.2014, 00:39

Не одинаковых, а последовательных. Пример: 1 2 3 4 5

Новичок · 13.04.2014, 10:43

Geekman, слушайте. Создайте новую тему и не морочьте голову!

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@MavGic 0 / 0 / 2 Регистрация: 07.02.2013 Сообщений: 44

	Покер 01.04.2013, 15:31. Показов 4757. Ответов 9 Метки нет (Все метки) Задано масив з п’яти чисел. Серед них : якщо однакові 5, то надрукувати число 1, інакше якщо однакові 4, то надрукувати число 2, інакше якщо однакові 3 та 2, то надрукувати число 3, інакше якщо однакові 3, то надрукувати число 4, інакше якщо однакові 2 і 2, то надрукувати число 5, інакше якщо однакові 2, то надрукувати число 6, інакше надрукувати число 7. 0

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,361
	01.04.2013, 16:22
	Перевод: Задан массив из пяти чисел.Среди них: если 5 одинаковых,то вывести число 1,иначе если 4 одинаковых,то вывести число 2,иначе если 3 одинаковых и 2 одинаковых,то вывести число 3,иначе если 3 одинаковых,то вывести число 4,иначе если 2 одинаковых и 2 одинаковых(но других),то вывести число 5,иначе если 2 одинаковых,то вывести число 6,иначе вывести число 7. 1

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,361
	01.04.2013, 20:14
	MavGic,задача одна,просто условие большое. 0

@Geekman 0 / 0 / 0 Регистрация: 11.04.2014 Сообщений: 2
	11.04.2014, 23:46
	А если идет 5 последовательных карт, что тогда? 0

@Geekman 0 / 0 / 0 Регистрация: 11.04.2014 Сообщений: 2
	12.04.2014, 00:39
	Не одинаковых, а последовательных. Пример: 1 2 3 4 5 0

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,361
	13.04.2014, 10:43
	Geekman, слушайте. Создайте новую тему и не морочьте голову! 0