Решить олимпиадные задачки

[clasterit]

1. Зёрна
Имя входного файла: input.txt
мя выходного файла. output.txt
В банке находятся белые и черные зернышки. Каждый раз из банки вынимают наугад два зерна. Если они одинакового цвета, то их выбрасывают, а в банки кладут черную зерно (черных зерен в достаточном количестве). Если же зерна разного цвета, то черную выбрасывают, а белую возвращают в банки. Эти действия повторяют, пока не останется одна зернышко.
Задание Напишите программу, которая по известным количеством черных и белых зерен определяет цвет последнего зерна.
Входные данные. В единственной строке записаны два числа - количество белых и черных зерен.
Выходные дате, Единственная строка выходного текстового файла должно содержать цвет зерна, оставшуюся: white - если зерно белая, black - если зерно черная.
Пример входных и выходных данных:


2. Крупнейшее произведение
Имя входного файла: input.txt
мя выходного файла. output.txt
Максимальное время работы на одном тесте: 5 секунд.
Дано N целых чисел.
Задачи. Необходимо выбрать из N целых чисел три таких числа, произведение которых максимальный
Входные данные. Первая строка входного файла содержит одно число N - количество чисел в последовательности (3 <N <106). Во второй строке записано саму последовательность: N целых чисел, по модулю не превышают 30000.
Выходные дате. В выходной файл выведите Три искомых числа в произвольном порядке. Если существует несколько различных троек чисел, дающих максимальный произведение, то выведите произвольную из них
Пример входных и выходных данных:



На олимпиаде именно две эти не смог решить(первую решил кое-как - проходила 3 теста из 5, постоянно писала "блек")
Поможете? Сказали разобраться, но голова не варит((

[grom333]

можно краткий перевод 3-ей?

[clasterit]

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

можно краткий перевод 3-ей?

немного не понял вопроса

2 перевел. Забыл из переводчика забрать))

[Leshii]

С украинского на русский перевести)

[clasterit]

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

С украинского на русский перевести)

сделано. Просто немного с номером ошиблись
не заметил, что на украинском просто(вроде как переводил, но видимо забыл сюда копирнуть)

[clasterit]

никто не знает?

[Leshii]

Знать возможно и знаем да вот лень делать.
Вот если бы ты сам что-то тут проделывал и оживлял сам процесс то возможно бы и подключились к решению задачи.

[clasterit]

Leshii, сам-то и оживляю))
Такс. Попробовал сделать через деление(мод) - программка запахала!))
Кому интересно:

program zerninu;

var S : string;
I, O : Text;
B, W : Integer;

begin

  Assign (I, 'C:\olimp\1\input.txt') ;
  Assign (O, 'C:\olimp\1\output.txt');
  reset(I);
  rewrite(O);
     read(W, B);
  if (B mod 2) = 0
    then writeln(O,'BLACK')
    else writeln(O,'WHITE');
  close(I);
  close(O);
     Readln(S);

end.

Пол пути пройдено...)
Может кто-то имеет какие-то мысли на счёт 2 задачки?)

[Serge_Bliznykov]

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

Такс. Попробовал сделать через деление(мод) - программка запахала!))

if (B mod 2) = 0
    then writeln(O,'BLACK')

Пол пути пройдено...)

clasterit, мне бы Ваш оптимизм...
Вы уверены, что задача решена правильно?!
Рассмотрите решение, если число белых W равно нулю, а число чёрных B равно 3.
(программа выдаст WHITE).
Вы уверены, что в корзине останется БЕЛОЕ зёрнышко ?..

ДОБАВЛЕНО

впрочем, идея решения абсолютно правильная. Только на нечётность надо проверять количество БЕЛЫХ зёрнышек.
Если их (белых) чётное число, то останется в итоге ЧЁРНОЕ,
если их (белых) нечётное число - то останется БЕЛОЕ.
ну и добавить проверку, когда в начале сразу ОДНО зёрнышко.
т.е. я бы предолжил такой вариант

program zerninu;

var 
I, O : Text;
cBlack,  {количество чёрных}
cWhite  {количество белых}
          : Integer;
begin
  Assign (I, 'C:\olimp\1\input.txt') ;
  Assign (O, 'C:\olimp\1\output.txt');
  reset(I);
  rewrite(O);
  read(cWhite, cBlack);
  if (cBlack=1) and (cWhite=0) then writeln(O,'BLACK');
  if (cBlack=0) and (cWhite=1) then writeln(O,'WHITE');
  if (cBlack>1) or (cWhite>1) then
    if  odd(cWhite)
      then writeln(O,'WHITE')
      else writeln(O,'BLACK');
  close(I);
  close(O);
  Readln;
end.

p.s. разумеется, вместо odd(cWhite) можно написать проверку на нечётность и через mod: (cWhite mod 2) = 1

[Serge_Bliznykov]

по второй задаче смотрите алгоритм тут:
Найти числа произведение которых самое большое