PascalABC.NET 3.7:
##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)Пояснение:
Используется формула для нахождения суммы первых n членов арифметической прогрессии: , где — первый член прогрессии, — последний член, —разность прогрессии.
sumOfAP -- функция расчёта суммы арифметической прогрессии.(a, b) -- вводимые числа.ReadInteger2(prompt) -- выводит приглашение к вводу prompt и возвращает кортеж из двух значений типа integer, введенных с клавиатуры.sE и sO -- "sum of Even" и "sum of Odd", сумма чётных и сумма нечётных соответственно.Print -- выводит значения на экран, после каждого значения выводит пробел.Плюсы Интернета:
- «стираются границы» общения. Мы можем не только общаться с людьми, которые живут в других странах, но и находить новых друзей;
- Интернет - это кладезь информации. При желании можно найти всё, что угодно;
- с Интернета можно смотреть фильмы, проводить онлайн-конференции, участвовать в семинарах, тренингах для повышения образования или саморазвития и т.д.;
Минусы
- с изобретением Интернета появилось понятие «интернет-зависимость»: жизнь виртуальная стала заменять жизнь реальную. В некоторых странах это проблема национального масштаба;
- ухудшение здоровья, в частности, зрения;
- развитие и рост киберпреступлений;
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Расставьте в порядке убывания числа, записанные в двоичной системе счисления. 1) 1001011111² 2) 10000000000² 3) 1111111110² 4) 1111110010² 5) 111110101²