Вопрос по информатике:
Дано N (N-натуральное число) целых чисел от 1 до 255. Определить среди них числа, запись которых состоит только из одинаковых цифр.
решить задачу через множества.
Пожаловаться
- 19.07.2018 03:34
- Информатика
- remove_red_eye 8551
- thumb_up 44
Ответы и объяснения 1
// 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
Пожаловаться
- 20.07.2018 19:34
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы