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

3. Определите вид сноски [1] Trailal
Д. В. Бочков в своей монографии утверждает: «Исключительная важность
экономической функции образования
Воспроизводстве
квалифицированной рабочей силы
для всех отраслей народного хозяйства»1.
Иной точки зрения придерживается Н.И. Никитин, изложивший свой видение
проблемы в статье «К вопросу об экономической функции образования»?. Третий
подход к проблеме представлен в монографии И.А. Иванова.
Бочков две анонсы мнеское мышление ледарорам Наука 2015. С. 21
Никитин Н.И. К вопросу об экономической функции образования // Вопросы педагогики, 2016, No 8. С. 59-69
Иванов А.И. Образование в условиях современной экономики. М., Наука, 2015, 215 с.
і
- -Спрочно ​

👇
Открыть все ответы
Ответ:
Vanea228
Vanea228
19.03.2021
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var n:=ReadInteger('n=');
  if n<0 then Writeln(n,'! не определено: n<0')
  else
    if n=0 then Writeln('0!=1')
    else begin
      var p:BigInteger:=1;
      for var i:=2 to n do p*=i;
      Writeln(n,'!=',p)
      end
end.

Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000
4,4(79 оценок)
Ответ:
рикки8
рикки8
19.03.2021
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var a:array[1..20] of integer;
  Randomize;
  for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
  var b:=Range(2,20,2).Select(i->a[i]);
  Writeln('Элементы с четными индексами по возрастанию');
  b.Sorted.Println;
  Writeln('Элементы с четными индексами по убыванию');
  b.SortedDescending.Println;
end.

Тестовое решение:
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40
4,7(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ