Решить задачу в pascal abc на столе разбросано n монет различного достоинства(достоинство каждой монеты не известно). После того какодинаковые монеты разложили в кучки (в каждой кучке монет одного достоинства) на столе оказалос...
Решить задачу в pascal abc на столе разбросано n монет различного достоинства(достоинство каждой монеты не известно). После того какодинаковые монеты разложили в кучки (в каждой кучке монет одного достоинства) на столе оказалось K кучек. сколько кучек?
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы