М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
KaguraChan
KaguraChan
30.04.2021 16:50 •  Информатика

Ребус forty+ten+ten=sixty напишите, , программу для расшифровки на паскале.

👇
Ответ:
novikovat73
novikovat73
30.04.2021
Программа - в прилагаемом файле.
Оптимизации никакой нет, поэтому считает долго.
Результат:
29786+850+850 = 31486
4,4(14 оценок)
Ответ:
ZacLolka
ZacLolka
30.04.2021
Вот так считает в пять раз быстрее, чем в предыдущем решении. Тоже никакой оптимизации, просто более современный проверки.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
 for var f:=1 to 9 do
  for var o:=0 to 9 do
   if o=f then continue
   else for var r:=0 to 9 do
    if Seq(1,o,r).Distinct.Count<>3 then continue
    else for var t:=1 to 9 do
     if Seq(f,o,r,t).Distinct.Count<>4 then continue
     else for var y:=0 to 9 do
      if Seq(f,o,r,t,y).Distinct.Count<>5 then continue
      else for var e:=0 to 9 do
       if Seq(f,o,r,t,y,e).Distinct.Count<>6 then continue
       else for var n:=0 to 9 do
        if Seq(f,o,r,t,y,e,n).Distinct.Count<>7 then continue
        else for var s:=1 to 9 do
         if Seq(f,o,r,t,y,e,n,s).Distinct.Count<>8 then continue
         else for var i:=0 to 9 do
          if Seq(f,o,r,t,y,e,n,s,i).Distinct.Count<>9 then continue
          else for var x:=0 to 9 do
           if Seq(f,o,r,t,y,e,n,s,i,x).Distinct.Count=10 then begin
            var a1:=f*10000+o*1000+r*100+t*10+y;
            var a2:=t*100+e*10+n;
            var a3:=s*10000+i*1000+x*100+t*10+y;
            if a1+a2+a2=a3 then begin
             writeln(a1,'+',a2,'+',a2,' = ',a3);
             Exit
             end
            end
end.

Результат
29786+850+850 = 31486
4,7(39 оценок)
Открыть все ответы
Ответ:
нэлли1987
нэлли1987
30.04.2021

Басқа тілде оқу

Download PDF

Бақылау

Өңдеу

Ақпараттық қауіпсіздік — мемлекеттік ақпараттық ресурстардың, сондай-ақ ақпарат саласында жеке адамның құқықтары мен қоғам мүдделері қорғалуының жай-күйі.

Ақпаратты қорғауӨңдеу

Ақпаратты қорғау — ақпараттық қауіпсіздікті қамтамасыз етуге бағытталған шаралар кешені. Тәжірибе жүзінде ақпаратты қорғау деп деректерді енгізу, сақтау, өңдеу және тасымалдау үшін қолданылатын ақпарат пен қорлардың тұтастығын, қол жеткізулік оңтайлығын және керек болса, жасырындылығын қолдауды түсінеді. Сонымен, ақпаратты қорғау - ақпараттың сыртқа кетуінің, оны ұрлаудың, жоғалтудың, рұқсатсыз жоюдың, өзгертудің, маңызына тимей түрлендірудің, рұқсатсыз көшірмесін жасаудың, бұғаттаудың алдын алу үшін жүргізілетін шаралар кешені

4,7(41 оценок)
Ответ:

тк Борисов жил с ученым из Ярославля, то Борисов не оттуда и не с Москвы и Санкт-Петербурга. следовательно, он с Новосибирска

Григорьев не Москвич и не с Ярославля. и теперь понятно, что не с Новосибирска. следовательно, он с Санкт-Петербурга

Егоров не с Москвы, остается один вариант, он с Ярославля

а Викторов значит с Москвы

можно сделать таблицу (по ней легко решать такие задачи):

                  Москва.   Новосиб.   С-п.   Ярославль.

Борисов.       -                 +               -              -

Викторов.     +                -                -              -

Григорьев.   -                 -                +             -

Егоров.         -                 -                -              +

4,4(78 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ