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

Question

Информатика

Пальмира

7 мая, 21:02

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

+4

Ответы (1)

Знаешь ответ?

Танюша · Answer 1

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.