Вывести все натуральные трехзначные числа, в которых есть заданная цифра

@profivsvoemdele · Регистрация: 25.11.2018

Author24 — интернет-сервис помощи студентам

1. Вывести все натуральные трехзначные числа, в которых есть заданная цифра.

@Get_Over_Here · 25.11.2018, 18:40

Pascal

begin
  var N := Readlnchar;
  if not n.IsDigit then halt
  else for var i := 111 to 999 do
      if I.ToString.Contains(n) then Writeln(i);
end.

@ZX Spectrum-128 · 25.11.2018, 18:43

Pascal

var
  n, i: integer;
 
begin
  readln(n);
  for i := 100 to 999 do
    if (i mod 100 = n) or (i mod 10 = n) or (i div 100 = n) then
      write(' ', i);
end.

@Sun Serega · 25.11.2018, 18:50

Get_Over_Here, а почему начинается с 111? 120 при этом всё равно засчитает как число содержащее 0, а вот 100 при этом не засчитает.

Добавлено через 1 минуту

Сообщение от ZX Spectrum-128

(i mod 100 = n)

Надо (i mod 100 div 10 = n)

@ZX Spectrum-128 · 25.11.2018, 18:51

Sun Serega, спасибо.

@Get_Over_Here · 25.11.2018, 18:54

Sun Serega, Почему-то так взбрендилось, спасибо за поправку)

Новые блоги и статьи
Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетных компьютеров началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .
Как определить, содержит ли строка подстроку в JavaScript InfoMaster 19.01.2025 При разработке веб-приложений часто возникает необходимость выполнять различные операции со строками, среди которых особое место занимает поиск подстрок. JavaScript предоставляет несколько встроенных. . .	Что такое метаклассы в Python InfoMaster 19.01.2025 Метаклассы в Python представляют собой один из самых мощных и одновременно сложных механизмов языка, позволяющий программистам контролировать процесс создания классов. По своей сути, метакласс. . .	Как удалить свойство из объекта JavaScript InfoMaster 19.01.2025 В современной веб-разработке объекты JavaScript играют фундаментальную роль в организации и структурировании данных. Они представляют собой контейнеры, которые хранят связанные данные и. . .	Какая разница между String и string в C# InfoMaster 19.01.2025 В языке программирования C# существует интересная особенность: для работы со строками можно использовать как String, так и string. Эта двойственность часто вызывает вопросы у разработчиков, особенно. . .	Как в Git откатить репозиторий к предыдущему коммиту InfoMaster 19.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса, предоставляя разработчикам мощные инструменты для управления изменениями в. . .	Как работают замыкания (closure) в JavaScript InfoMaster 19.01.2025 В мире современной веб-разработки замыкания (closures) представляют собой один из фундаментальных концептов языка JavaScript, который часто вызывает затруднения у начинающих разработчиков, но при. . .

@profivsvoemdele 0 / 0 / 0 Регистрация: 25.11.2018 Сообщений: 46
		1
	Вывести все натуральные трехзначные числа, в которых есть заданная цифра 25.11.2018, 18:09. Показов 2080. Ответов 5 Метки нет (Все метки) 1. Вывести все натуральные трехзначные числа, в которых есть заданная цифра. 0

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,792
	25.11.2018, 18:50	4
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Get_Over_Here, а почему начинается с 111? 120 при этом всё равно засчитает как число содержащее 0, а вот 100 при этом не засчитает. Добавлено через 1 минуту Сообщение от ZX Spectrum-128 (i mod 100 = n) Надо `(i mod 100 div 10 = n)` 1

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	25.11.2018, 18:51	5
	Sun Serega, спасибо. 0

@Get_Over_Here 79 / 49 / 23 Регистрация: 15.07.2018 Сообщений: 255
	25.11.2018, 18:54	6
	Sun Serega, Почему-то так взбрендилось, спасибо за поправку) 0

Опции темы

Вывести все натуральные трехзначные числа, в которых есть заданная цифра

Решение