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

по информатике. Преобразование информации путём рассуждения это-
Что такое преобразование информации путём рассуждения

👇
Ответ:
asel07071
asel07071
27.12.2022

Преобразование информации путём рассуждения это - Вначале вы анализируете имеющуюся информацию выделяете значимые объекты и устанавливаете между ними связи. Рассуждая, вы взвешиваете различные варианты и делаете некоторый выбор. При этом вы задействуете не только знания, полученные в школе, но и свой жизненный опыт.

4,8(6 оценок)
Открыть все ответы
Ответ:
Slimede
Slimede
27.12.2022

Ну что же.. Тыж-программист пришёл на так сказать..

Давай рассуждать... У нас включено что то в два пина. Один из них аналоговый А0, а второй обычный.

Мы создали переменную data в которую поместили значения с того, что включено в пин А0.

Теперь мы проверяем, если значения меньше или равно 200 тогда мы генерируем на порту вход/выхода сигнал — прямоугольную "волну", заданной частоты и с 50% рабочим циклом. Длительность 1 секунда, если же data больше за 200, тогда мы просто выключаем и ничего не отдаём или считываем.

После чего мы выводим на экран слово Analog: и в него записываем значения которое у нас на А0.

Делаем задержку  пол секунды и всё делаем по новой.

4,6(85 оценок)
Ответ:
Лина5678
Лина5678
27.12.2022
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

function NOK(a,b:integer):integer;
begin
  if a=b then Result:=a
  else begin
    var c:=a*b;
    repeat
      if a>b then a:=a-b else b:=b-a;   
    until a=b;
    Result:=c div a
  end
end;

begin
  var n:=ReadInteger('N=');
  var L:=new List<integer>;
  var m:=n;
  while m>0 do begin
    var d:=m mod 10;
    L.Add(d);
    m:=m div 10
    end;
  var a:=L.Where(x->x<>0).Distinct.ToArray;
  var k:=a[0];
  if a.Length>1 then
    for var i:=1 to a.Length-1 do k:=NOK(k,a[i]);
  Range(k,n,k).Println;
end.

Пример
N= 227
14 28 42 56 70 84 98 112 126 140 154 168 182 196 210 224

Как это работает?
Если число делится на каждое из нескольких чисел, то оно делится и на НОД этих чисел, Функция НОД позволяет найти НОД пары чисел, а её применение несколько раз позволит найти НОД для необходимого набора чисел.
Создаем объект типа "список целых" и цифра за цифрой помещаем туда числа, совпадающие с цифрами заданного числа n. Затем просматриваем список и все уникальные элементы, за исключением нуля, заносим в массив а. Далее вычисляем НОД для всех элементов полученного массива.
Понятно, что первым в последовательности искомых чисел будет стоять НОД, а далее пойдут числа, которые будут увеличиваться каждый раз на НОД, пока не достигнут n.
4,5(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ