• 20 November 2013
    • Химия
    • Автор: Krytaya45186

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


    • 20 November 2013
    • Ответ оставил: Ника1341

    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.


    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы

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

404