сервис вопросов и ответовСреди 5 значных чисел найти числа с одинаковыми цифрами
10-11 класс|
|
Распишите, всё подробно пожалуйста.
Babkinajanna1
05 янв. 2015 г., 19:01:44 (9 лет назад)
AleXAys
05 янв. 2015 г., 19:34:26 (9 лет назад)
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. Начал было перегружать оператор сравнивания, но головная боль лишняя, да и тоже не школьное это
Ответить
Другие вопросы из категории
3. Дано a = A516 и b = 2018. Как{ое из чисел c, записанных в
двоичной систем}е счисления, отвечает условию a > (b + c)?
1) 1000112
2) 1011002
3) 1100012
4) 1010112
1. Как называется общая часть имени у
группы компьютеров в сети Интернет
а) домен
б) сайт
в) протокол
г) URL
2. Выберите верные утверждения.
Паскаль – это ...
а) название языка программирования
б) фамилия известного французского учёного
в) единица измерения давления
г) название автомобиля
3. Совокупность правил, регламентирующих
формат и процедуру обмена информацией между двумя или несколькими устройствами
или процессорами несколько соединенных между собой компьютеров - …
4. Сколько байт в слове: «бит» ?
5. Среди перечисленных аббревиатур
подсчитайте количество тех, которые не относятся к информатике: HTML, GIF, ООН,
СССР, ВМР, CD-RW, REAL, ГДР, URL, ВУЗ, ПЗУ, МГУ, RAM, ЭВМ, ЖКИ, БИОС, ГИБДД,
СУБД, http, SOS.
6. Перед вами пример кода HTML.
Необходимо подсчитать количество ошибок сделанных в записи
тэгов.
7. Дана последовательность символов,
необходимо указать следующий элемент последовательности:
Х, Y, YX, YY, YXX,YXY, YYX, YYY, XYYY, …
8. Запишите имя файла, для которого
выполнились бы все перечисленные ниже условия:
а) Этот файл будет соответствовать всем перечисленным ниже маскам.
б) В имени файла (до расширения) содержится последовательность подряд идущих
символов “mdbc”,
Читайте также
Язык "Паскаль АВС" 1.Среди двухзначных чисел найти количество четных чисел. 2. Среди двухзначных чисел найдите те числа, у которых первая цифра четная.
3. Среди двухзначных чисел найдите те числа, которые кратны 3 и 4. 4. Среди трехзначных чисел найдите те, у которых все цифры равны. 5. Найдите среди трехзначных чисел симметричные числа. 6. Найдите среди четырехзначных чисел симметричные числа. 7. Найдите все трехзначные числа такие, что сумма цифр равна А, а само число делится на В. А и В вводятся с клавиатуры. 8. Найдите все трехзначные числа такие, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5. 9. Найдите количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается на В, А и В вводятся с клавиатуры. 10. Найдите все трехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27. 11.Найдите все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3-остаток 2, при делении на 4-остаток 3, само число делится на5. 12. Найдите все четырехзначные числа, в которых есть две одинаковые цифры. 13. Найдите сумму всех чисел из промежутка от А до В, кратных 13 и 5, А и В вводятся с клавиатуры. 14. Найдите все симметричные четырехзначные числа. 15.Найдите все трехзначные числа, которые состоят из различных цифр, а их сумма равна А.
Написать
программу, которая определяет среди заданных трех чисел равные числа
Решить задачи • Найдите сумму цифр числа; • Найдите первую цифру числа; • Поменяйте порядок цифр числа на обратный; • Найдите количество четных цифр
числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.
Вы находитесь на странице вопроса "Среди 5 значных чисел найти числа с одинаковыми цифрами", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.