В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
lushayir
lushayir
04.04.2020 10:23 •  Информатика

С СДЕЛАЙТЕ С ОТВЕТОМ, ЧТОБЫ КОГДА Я НАЖАЛ НА "Run" У МЕНЯ НЕ БЫЛО ОШИБОК 1. Пользователь вводит логин и пароль. Если логин и пароль правильные (создать

переменные, где будут указаны правильные логин и пароль), то вывести "Добро

". В противном случае вывести "Вход запрещен".

3. Вывести числа от 1 до 15.

4. Вывести только четные числа в диапазоне, который введет пользователь. Найти

количество этих чисел и их сумму.

Показать ответ
Ответ:
Ak1se
Ak1se
02.05.2020 21:14
Для каждого объекта можно построить только одну модель.Не верно, смотря какие параметры мы будем рассматривать. Здесь опровергнуть элементарно. Для каждого объекта можно построить много моделей.
Спорно... Скажем, для некого абстрактного "черного ящика" (это термин) не получится построить ни одной модели. (Информационная модель – совокупность информации, характеризующая существенные свойства и состояния объекта, процесса, явления, а также взаимосвязь с внешним миром.) Магия.
 Разные модели отражают разные свойства объекта.Не правда. Положение объекта в разных системах отсчета или координат.
 Модель должна описывать все свойства объекта.Не правда. Например, важно положение, но не важен цвет.
 Модель может описывать только некоторые свойства объекта.Может.
0,0(0 оценок)
Ответ:
ДанькоДенис2018
ДанькоДенис2018
22.10.2022 02:18
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (p,q,s):=(1,2,0);
  var k:=0;
  Write('(1,5) ');
  for var i:=3 to 1000 do begin
    var (flag,j,r):=(True,2,Round(Sqrt(i)));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then begin
      (p,q,s):=(q,s,i);
      if q-p=4 then Write('(',p,',',q,') ')
      else
        if s-p=4 then Write('(',p,',',s,') ')
      end
    end
end.

Результат
(1,5) (3,7) (7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота