Паскаль: определяет по числу красное оно или черное в рулетке

[Bandit228]

такая задачка:
значит ввожу число, а прога определяет красное оно или черное в рулетке.
красный (1, 3 ,5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36);
черный (2, 4, 6, 8, 10, 11, 13, 15, 17, 20, 22, 24, 26, 28, 29, 31, 33, 35);
помогите кто шарит.

[Serge_Bliznykov]

занести значения либо в массив, либо в множество.
введённое значение проверять.
в чём сложность?

[Аватар]

в чём сложность?

Наверно в том, что ТС не шарит))

[Bandit228]

да пацаны я в массивах ваще не шарю, это жестко. максимум в циклах могу че нибудь сделать.
покажите на примере как в массивах сделать для первых трех чисел, дальше сам попробую разобраться

[Serge_Bliznykov]

решение с множествами:

const
  Reds = 
       [1, 3 ,5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36];

var x : integer;
begin
  repeat
    WriteLn('Vvedite chislo');
    ReadLn(x);
    if not ( (x>=1) and (x<=36) ) then WriteLn('ERROR! Chislo ot 1 do 36!');
  until (x>=1) and (x<=36);

  if x in Reds 
    then WriteLn('Krasnoe') 
    else WriteLn('Chernoe');

  Readln
end.

достаточно? Или написать решение через массив?

[Bandit228]

напиши если не сложно, а то я школьник, мне еще пригодится через массивы решать

[Аватар]

да пацаны я в массивах ваще не шарю

Патцаны ваще ребята всё путём))

[min@y™]

судя по никнэйму, школа находится в малолетке, а пассажир – первоход по наркоте.
аффтар, откудова у тя там комп с выходом в интернеты?

[Serge_Bliznykov]

напиши если не сложно, а то я школьник, мне еще пригодится через массивы решать

да пожалуйста:

const
  N = 18;
  Reds : array[1..N] of integer = 
       (1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36);

var i,x : integer;
begin
  repeat
    WriteLn('Vvedite chislo');
    ReadLn(x);
    if not ( (x>=1) and (x<=36) ) then WriteLn('ERROR! Chislo ot 1 do 36!');
  until (x>=1) and (x<=36);

  i:=1;
  while (i<=N) and (x<>Reds[i]) do Inc(i);
  
  
  if i<=N 
    then WriteLn('Krasnoe') 
    else WriteLn('Chernoe');

  Readln
end.

[Bandit228]

все всем спасибо, помогли от души