Question

Написать программу Pascal abc В шкатулке хранится разноцветный бисер (или бусины). Все бусины имеют одинаковую форму, размер и вес. Бусины могут быть одного из N различных цветов. В шкатулке много бусин каждого цвета. Требуется определить минимальное число бусин, которые можно не глядя вытащить из шкатулки так, чтобы среди них гарантированно были две бусины одного цвета. Входные данные Входной файл INPUT.TXT содержит одно натуральное число N - количество цветов бусин (1 ≤ N ≤ 109). Выходные данные В выходной файл OUTPUT.TXT выведите ответ на поставленную задачу.

Answer 1

Ответ:

var N: integer;

var f: text;  

begin

assign(f,'C:\1\INPUT.TXT');

reset(f);

read(f,N);

close(f);

assign(f,'C:\1\INPUT.TXT');

rewrite(f);

write(f,N+1);

close(f);

end.

Answer 2

Вот пример решения задачи на языке Pascal ABC:

pascalCopy code
program Main;

var
  N, result: integer;

begin
  { Чтение входных данных из файла INPUT.TXT }
  assign(input, 'INPUT.TXT');
  reset(input);
  readln(N);
  close(input);

  { Вычисление ответа }
  result := N + 1;

  { Запись результата в файл OUTPUT.TXT }
  assign(output, 'OUTPUT.TXT');
  rewrite(output);
  writeln(result);
  close(output);
end.

Эта программа считывает число цветов бусин из файла "INPUT.TXT", вычисляет минимальное количество бусин, которые нужно вытащить, чтобы гарантированно получить две бусины одного цвета, и записывает результат в файл "OUTPUT.TXT". В данном случае, ответом является N + 1, так как если вытащить N бусин, то можно получить N различных цветов, но для гарантированного появления двух бусин одного цвета нужно добавить ещё одну бусину.