Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 194280
23.12.2018, 13:56
0.00 руб.
0 7 1
Образование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Найдите наименьшее натуральное число n, такое, что n^2 и (n+1)^2 содержат цифру 7, а (n+2)^2 не содержит.

Обсуждение

давно
kenguru_62
Посетитель
402634
40
23.12.2018, 13:57
общий
23.12.2018, 22:02
Квадрат с целочисленной стороной разрезали на 2020 квадратов. Известно, что площади 2019квадратов равны 1, а площадь 2020-го – не равна 1. Найдите все возможные значения, которые может принимать площадь 20202020-го квадрата. В ответе наименьшее из полученных значений площади
давно
kenguru_62
Посетитель
402634
40
23.12.2018, 14:00
общий
23.12.2018, 22:02
Мастер Ли Си Цын делает веера. Каждый веер состоит из 6 секторов, покрашенных с двух сторон в красный и синий цвета (см. рис.). Причем если одна из сторон сектора покрашена в красный цвет, то обратная покрашена в синий и наоборот. Каждые два веера, сделанные мастером отличаются раскраской (если одна раскраска переходит в другую при переворачивании веера, то эти раскраски считаются одинаковыми).
Какое набольшее количество вееров может сделать мастер?
Прикрепленные файлы:
1c95896e7d03c6d12c3c0b68d0cadb1d.docx
скачать (32.00 кБ)
давно
kovalenina
Бакалавр
402550
121
24.12.2018, 05:37
общий
27^2 = 739, 28^2 = 784, а 29^2 не содержит 7. 29^2 = 841
давно
kovalenina
Бакалавр
402550
121
24.12.2018, 05:37
общий
Адресаты:
27^2 = 739, 28^2 = 784, а 29^2 не содержит 7. 29^2 = 841
давно
Алексеев Владимир Николаевич
Мастер-Эксперт
259041
7459
24.12.2018, 12:24
общий
Адресаты:
Вам осталось показать, что числа, мЕньшие, чем 27, НЕ обладают свойствами, заказанными в Условии задачи, и Вы можете оформлять Ответ!
давно
Алексеев Владимир Николаевич
Мастер-Эксперт
259041
7459
25.12.2018, 02:40
общий
Уважаемые эксперты, сообщите пожалуйста сюда, если кто-то уже готовит Ответ по этой консультации. Иначе я приступлю ч-з 10 часов. Мне думается, эта задача не для математиков, а для начинающих программистов, кот-е тренируются в автоматизации поиска символов в словах.
давно
Алексеев Владимир Николаевич
Мастер-Эксперт
259041
7459
25.12.2018, 14:32
общий
это ответ
Здравствуйте, kenguru_62!
В условии задачи не предписан метод решения. Я полагаю, эту задачу проще всего решить методом простого перебора с помощью мини-программки на языке VBScript . Это - простейший язык программирования. Для его использования не нужны ни компиляция, ни установка среды программирования. Мало кто знает, что в каждой Windows-системе уже встроен обработчик VBScript , и народ "убивает время" на комп-игры по чужому сценарию вместо того, чтобы играть в мини-программки по своему сценарию с гораздо бОльшей практической пользой.

В этом простом языке отсутствует специальная команда поиска символа в строке, поэтому, чтоб узнать наличие символа из переменной s0 в строке или слове n2 приходится использовать команду Split(n2,s0) - разрезать фразу n2 в массив фрагментом s0 . Затем функция UBound() получает верхний индекс полученного массива. Поскольку отсчёт элементов массива ведётся с "0", то UBound-значение <1 означает, что запрошенный символ отсутствует в строке (строка НЕ разрезалась).

Условный оператор if [условие] проверяет истинность заданного условия. Если условие истинно, то выполняются команды после ключевого слова then . В противном случае выполняются команды после ключе-слова Else .
Я снабдил прог-текст скрипта подробными комментариями. Обработчик прог-слов игнорирует эти комменты правее символа ['] до конца строки.

Ниже-код скрипта надо вставить в текстовый файл, сохранить его и затем переименовать его расширение .txt на .vbs . Готовый скрипт "194280 Нал цифры 7.vbs" и скриншот его выполнения прилагаю.
Код:
s0="7" ' Задали, которую цифру искать. Вместо "7" можно задать "0", "9" и даже "Ы"
Msg="" : itog="	Решение НЕ найдено!" 'Очистили накопитель итогового сообщения.
For n0=1 to 40 'Цикл от 1 до 40 будет исполнять команды, перечисленные до слова Next .
  n2=n0^2 : s2=n0 & "^2=" & n2
  if UBound(Split(n2,s0))<1 then
    s2=s2 & " НЕ содержит цифру " & s0 & " ."
  Else s2=s2 & " содержит цифру " & s0 & " , "
    n3=(n0+1)^2 : s3="(" & n0 & "+1)^2=" & n3
    if UBound(Split(n3,s0))<1 then	'ниже vbLf - перенос строки с после-отступом.
      s2=s2 & vbLf & "   Однако, " & s3 & " НЕ содержит цифру " & s0 & " ."
    Else s2=s2 & "И " & s3 & " содержит цифру " & s0 & " ."
      n3=(n0+2)^2 : s3="(" & n0 & "+2)^2=" & n3
      if UBound(Split(n3,s0))>0 then
        s2=s2 & vbLf & "   Однако, " & s3 & " содержит цифру " & s0 & " ."
      Else s2=s2 & vbLf & "   И " & s3 & " НЕ содержит цифру " & s0 & " !"
        Msg=Msg & s2 & vbLf : itog="	Решение найдено!" : Exit For ' обрыв цикла
      End if
    End if
  End if
  Msg=Msg & s2 & vbLf
Next
WScript.Echo Msg & itog	'вывод результатов на экран.


Поскольку перебор чисел ведётся от 1 (минимального натурального числа), значит первое же найденное решение - число 27 есть "наименьшее натуральное число n", удовлетворяющее условию задачи. Эксперт kovalenina правильно решила Вашу задачу 2 дня назад.

Вы можете из контекстного меню скрипта выбрать команду "Изменить". Код скрипта откроется в текстовом редакторе "Блокнот". Поиграйте присвоением, замените s0="7" на s0="0" , или на s0="9" чтоб задать другую цифру для поиска.
Прикрепленные файлы:
d2b91b06b367761f31772dca0122548773c26cce.zip
скачать (991 байт)
5
Форма ответа