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

Создать базу данный на одну из предложенных вами тем. Реализовать схему базу данных, задать отношения между таблицами. Создать в базе данных следующие объекты
Три таблицы
Схема базы данных
Три формы
Четыре запроса
Два отчета

👇
Открыть все ответы
Ответ:
sviridovakatya8
sviridovakatya8
10.05.2023

Один или несколько компонентов программы Avast Antivirus, в частности экраны или брандмауэр, могут перейти в состояние Остановлено, при этом их будет невозможно запустить вручную через интерфейс программы Avast Antivirus.

Эти проблемы, как правило, вызваны ограниченными или несовместимыми правами записи на диск, в системные папки или реестр Windows, что мешает программе установки Avast установить, обновить, удалить или перезаписать некоторые программные файлы или записи реестра. Отсутствие каких-либо из этих файлов и записей или их повреждение может привести к неправильному функционированию программы Avast Antivirus или ее отдельных компонентов.

Некоторые из действий, описанных в этой статье, могут потребовать углубленных технических навыков, но их необходимо выполнить, чтобы полностью устранить проблемы с компонентами Avast Antivirus и предотвратить их возникновение в будущем.

Объяснение:

Прежде чем приступить к устранению неисправностей, убедитесь, что вы вошли в систему Windows как пользователь с правами администратора, а все другие программы в ОС Windows закрыты. Более подробную информацию можно найти в статье ниже.

4,6(69 оценок)
Ответ:
nikitakomer
nikitakomer
10.05.2023
//Pascal ABC.NET 3.1 сборка 1219

Var
 k,n,max:integer;

 procedure hase(var k,n,max:integer); //сама последовательность
 begin
  if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
  writeln(n); //вывод нового члена последовательности
  inc(k); //увеличение значения счётчика шагов
  if max<n then max:=n; //поиск вершины
 end;

  procedure start(var k,n,max:integer); //название процедуры намекает
 begin
  readln(n);
  k:=0;
  writeln('Seq:');
  max:=integer.MinValue;
  while n<>1 do
  hase(k,n,max);
  writeln('Шаги:',k);
  writeln('Вершина:',max);
 end;
 begin
 start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16
4,4(37 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ