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

В магазин завезли арбузы по 750 тенге. Составьте алгоритм действий продавца по обслуживанию клиентов.

Показать ответ
Ответ:
берта2904
берта2904
19.10.2021 03:44

принцип доступности священного писания и его свободного истолкования открыл дорогу для бесконечного дробления христианства и появления самых различных исповеданий и толков.  

 

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

 

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

 

следствием войн под религиозным прикрытием явилась распущенность в отдельных слоях протестантов. в угоду своим интересам некоторые люди стали извращать учение об оправдании верой. подобные явления имели место на ранней стадии реформации. лютер скорбел по поводу крестьян, впадавших в состояние крайней необузданности. «я верую, потому и буду спасен» , — заявляли нерадивые, попирая всякую мораль и нравственность.

объяснение:

0,0(0 оценок)
Ответ:
0987mnbv
0987mnbv
20.12.2022 14:36
// PascalABC.NET 3.0, сборка 1076
begin
  var n:=ReadInteger('Число элементов массива=');
  var a:=ArrRandom(n,-25,25);
  Write('Исходный массив: '); a.Println;
  var k:=a.Where(x->sqr(x)>sqr(a[0])).Count;
  if k>0 then Writeln
    ('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
  else Writeln
    ('Нет ни одного элемента, квадрат которого больше квадрата первого')
end.

Тестовое решение:
Число элементов массива=15
Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 элементов, квадрат которых больше квадрата первого
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота