Решить задачу в pascal abc на столе разбросано n монет различного…

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

в избранное

oriental

21 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Дан массив из 10 целых чисел. Найти среднее значение элементов массива

Помогите пожалуйста, нужно между цифрами расставить знаки: +- x /, и если надо

ПАСКАЛЬ! Найти сумму и количество натуральных чисел в интервале от 0 до 50, оканчивающиеся на цифру k

В массиве из 20 целых чисел найдите наибольший элемент среди отрицательных и поменяйте его местами с первымэлементом

Во время каникул веселые человечки отправились путешествовать на разных видах транспорта

Выберите ответ, в котором соответствия устоновлено правильно. a) компас b) пластинка c) перфокарта d) свеча…

Какие модели называются натурными?

Расположите в хрологическом порядке ЭВМ различных поколений (1) транзисторные (2) ламповый ЭВМ (3) ЭВМна базе СБИС

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: