maxmxax25245
16.03.2022 13:19

в диапазоне натуральных чисел от 2 до 99 определить, сколько из них кратны любому из чисел в диапазоне от 2 до 9 ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
3asyavasilkova3
15.01.2023 04:19
1)модель объекта -  это по сравнению с реальным объект, воспроизводящий только  существенные  для решения поставленной   свойства  реального объекта.

моделирование производится в тех случаях, когда эксперименты на реальном объекте затруднены по каким-либо причинам (например, требуют больших затрат или приводят к риску для жизни либо не могут производиться в реальном времени, то есть протекают слишком медленно или слишком быстро).

все модели можно подразделить на  материальные  и  информационные.

2)материальные модели  воспроизводят внешний вид реального объекта в каком-либо масштабе (например, глобус, муляжи внутренних органов, модель молекулы, модели автомашин и самолётов и т.д.)

информационные  (абстрактные)  модели  отражают не внешний вид, а процессы, происходящие в реальных объектах (например, формулы, таблицы, графики, схемы и т.

3)материальная модель дома - макет.

абстрактные модели дома - компьютерный рисунок дома, чертеж дома. 4)модель земли - глобус, создан с целью увидеть целиком огромный земной шар. модель земли - карта, создана для удобства работы по изучению частей земли. модель человека - манекен, создан для удобства демонстрации одежды. модель человека - скелет (и модели частей организма человека), созданы для исследования организма человека. модель города - макет города, создан для грамотного планирования строительства города.5)мы встречаем их в жизне довольно часто. на информатике мы чертим блок-схемы, на - графики, после проведенного опроса мы составляем диаграммы, из которых делаем выводы..  6)модель двигателя внутреннего сгорания автомобиля. модель парового двигателя. модель строительного крана. 7) информационная  модель   —  модель   объекта, представленная в виде информации, описывающей существенные для данного рассмотрения параметры и переменные величины объекта, связи между ними..8) самолет - летающий аппарат  еще пару веков назад люди лишь мечтали о передвижении по воздуху. «парить, словно птица» было мечтой каждого человека. проектов «железной птицы» появлялось все больше и больше. однако, как правило, надежды себя не оправдывали и эти «птицы» никак не могли взлететь.  и вот однажды, в 1903 году, братья райты (сша) , орвил и уилбур, все-таки подняли в воздух первый прототип современного самолета «флайер» . он продержался в воздухе 59 секунд, пролетев при этом целых 260 метров.  после этого конструкция самолетов стала развиваться все стремительней и совершенней. 9)для начала вспомни, что такое информационная модель объекта. если по-простому это совокупность наиболее существенных признаков, которые важны для тех или иных действий с объектом. вот и опиши арбуз так, чтобы другой человек сделал то что требуется: нарисовать, выбрать спелый или вырастить.нарисовать: - почти круглой формы, слегка овальный - с одной стороны - небольшой хвостик, с противоположной - рыльце - окраска полосатая: полоски темно- и светло зеленые, одинаковой ширины - полосы идут в направлении от хвостика к 10)конечно можно, для этого и существуют модели которые мы можем приравнивать на различные объекты. отличаться? ну зависит от того - что сравниваем. банально - цвет, размер, форма. однако мы ставим модель на какой то объект, сама модель должна соответствовать чему то. модель это только форма. т.е объект это уже второстепенная часть которая независима от модели. модель - это форма чего то. объект - это на что будет наложена форма/модель.
0,0(0 оценок)
Ответ:
Арина838383773
23.11.2021 04:07
ответ: 1909

Var
 s : String;
 n : Integer;
Function IncS(a : String) : String;
Begin
  a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
  If a[Length(a)]>'D' then
    IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
  else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
  Check:=False;
  If (Pos('A',a)>0) then
  Begin
    Delete(a,Pos('A',a),1);
    If (Pos('A',a)>0) then Check:=True;
  end;
end;
Begin
  s:=''; n:=0;
  While s<>'' do
  Begin
  {  Writeln(s);  }
    If Check(s) then Inc(n);
    s:=IncS(s);
  end;
  Writeln(n);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота