Вопрос по информатике:
Среди 5 значных чисел найти числа с одинаковыми цифрами
Распишите, всё подробно пожалуйста.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.05.2017 14:03
- Информатика
- remove_red_eye 6443
- thumb_up 43
Ответы и объяснения 1
function nums(a: integer): System.uint64; //очень_длинное_число, 10 цифр же, кортеж не стал лепить, не школьный это тип, а массивы не очень-то сравниваться любят
var
num: array [0..9] of byte;
begin
foreach c: char in a.ToString() do
num[StrToInt(c)] += 1;
result := System.uint64.Parse(
String.Concat(num[0], num[1], num[2], num[3], num[4],
num[5], num[6], num[7], num[8], num[9]));
end;
var
a: array [1..5] of System.uint64;
i, j: byte;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 4 do
for j := i + 1 to 5 do
if (nums(a[i]) = nums(a[j])) then
writeln(a[i], ' ', a[j]);
end.
P.S. Начал было перегружать оператор сравнивания, но головная боль лишняя, да и тоже не школьное это
- 04.05.2017 00:34
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.