Пояснення та приклади використання

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 -- выводит значения на экран, после каждого значения выводит пробел.

Плюсы Интернета:

- «стираются границы» общения. Мы можем не только общаться с людьми, которые живут в других странах, но и находить новых друзей;

- Интернет - это кладезь информации. При желании можно найти всё, что угодно;

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

Минусы

- с изобретением Интернета появилось понятие «интернет-зависимость»: жизнь виртуальная стала заменять жизнь реальную. В некоторых странах это проблема национального масштаба;

- ухудшение здоровья, в частности, зрения;

- развитие и рост киберпреступлений;

Объяснение: