Войти Регистрация Спроси ai-bota

Знайти суму всіх парних чисел від 1 до n. паскаль

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

тоты2017

15.08.2021 19:59

1. с клавиатуры вводятся два числа. определить имеется среди них четное число. программа паскаль...

KaDet1778

20.05.2021 12:37

49 б. + 25 б. за лучший. вопросы не сложные, я думаю вы справитесь. я и сам в принципе знаю, что оно такое - мне нужно, чтобы ответы на эти вопросы были расписаны и более-менее...

HGRM

10.02.2021 04:23

Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X 32)...

yuliana577

06.05.2022 19:30

Имеется массив а из n произвольных чисел среди которых есть положительные, отрицательные и равные нулю. найти сумму элементов предшествующих минимальному числу. так если а={3,4,9,2,11,-12,3}...

Jeka990

28.11.2021 16:50

Начертить блок-схему к задаче: Ввести стороны прямоугольника, выяснить не является ли прямоугольник квадратом, вычислить значение площади. Вывести результат....

ArtLeg

09.07.2021 00:45

Аргументы для функции range() передаются следующим образом:...

987helen

21.03.2020 23:19

Доказать что a параллельно...

даша3633

26.06.2020 08:37

Оберіть три твердження які характерезують спарту а)Законодавство Лікурга б)Класичне рабствов)реформи Периклаг)демократія д)Олігархіяе)ілоти...

marina4010

24.12.2020 09:01

Выполните рисунки. Изобразите при горизонталей и отметок высот: а) холм высотой 53м; б)впадину глубиной 13,5м....

hodyukmaria

24.12.2020 09:01

Почему азотная кислота или ее соли не превращают нитриты в аммиак? Объясните структурную формулу оксида азота (V). Можно ли из оксида азота получить азотную кислоту или ее соли?...

Ответ:

RedGirl12

03.10.2020 11:21

//PascalABC.NET 3.1 сборка 1200
begin
writeln(range(1, ReadInteger('n =')).Where(x -> x mod 2 = 0).Aggregate((s, x)-> x + s));
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку