решить задачу в pascal abc на столе разбросано n монет различного достоинства(достоинство каждой монеты не известно). После того какодинаковые монеты разложили в кучки (в каждой кучке монет одного достоинства) на столе оказалось K кучек. сколько кучек?

1
К-число кучек
а что сказано про d? есть ограничение по размеру для d?
I монеты
Все больше нечего не известно
Все спасибо огромное

Ответы и объяснения

2013-11-20T13:21:00+04:00
Var
  a : array [1..10000] of boolean;
  n, i, k, d : integer;
begin
  read (n);
  k := 0;
  for i := 1 to n do
  begin
    read (d);
    if not a[d] then
    begin
      a[d] := true;
      k := k + 1;
    end;
  end;
  writeln (k);
end.