Дано N (N-натуральное число) целых чисел от 1 до 255. Определить среди них числа, запись которых состоит только из одинаковых цифр.
решить задачу через множества.
Аноним:
В смысле, считается, что задано множество чисел?
Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:set of integer:=[];
Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
repeat
var n:=ReadInteger;
if not (n in [1..255]) then break
else s+=[n]
until false;
Writeln('-'*10);
foreach var k in s do
if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.
Пример
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500
----------
77 8 55 222
// Внимание! Если программа не работает, обновите версию!
begin
var s:set of integer:=[];
Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
repeat
var n:=ReadInteger;
if not (n in [1..255]) then break
else s+=[n]
until false;
Writeln('-'*10);
foreach var k in s do
if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.
Пример
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500
----------
77 8 55 222
слишком сложно мы такое еще не проходили
Это Ваши проблемы, поскольку Вы не указали даже на каком языке писать программу. Более того, судя по тому, что задача на множество, а "это не проходили" - вы и не будете это проходить.
А если Вы надеетесь, что за 5 баллов я буду полчаса Вам писать решение размером в лист в стиле ТурбоПаскаля, то сильно ошибаетесь.
ну это уже ваши проблемы зачем тогда отвечали
Т.е. я написал решение, оно Вас не устраивает по Вашей собственной вине, так Вы еще и подобные вопросы задаете? Да Вы просто нахал...
знаете что, это вы за 5 баллов написали решение, а не я. так что мне не интересно ваше мнение кто нахал и тд
Именною За 5 баллов я и написал его так, чтобы затраты труда соответствовали и при этом ответ не противоречил условию.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад