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

Question

Информатика

Ангеля

23 сентября, 02:10

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

+1

Ответы (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.