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

154

387

Посмотреть ответы 2

Ответы на вопрос:

anas20041006

Информатика

4,7(20 оценок)

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.

ytxrgh

Информатика

4,4(27 оценок)

Будет имя "олег" у "б" две спички забрали

Популярно: Информатика

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку