Решите на пасхале, найти сумму четных целых чисел на промежутке от 1 до k. формат ввода: на вход подается неотрицательное, целое число k, не превосходящее 30000. формат вывода: целое число. пример входных данных 10 пример выходных данных 30
arlashmanov
2
20.09.2019 04:20
0
Другие вопросы по теме Информатика
badoo40
10.07.2019 11:30
Dim102
25.04.2021 19:09
AlinaZimina1
29.05.2019 00:00
arturlatipov
29.05.2019 00:00
SaharaYo
29.05.2019 00:00
ArtFox12
29.05.2019 00:00
lexanyreev
29.05.2019 00:00
xiumin90
29.05.2019 00:00
Популярные вопросы
- Какие территории занимали найманы и керейты...
2 - Напиши уравнение окружности с центром в точке C(5;-3), радиусом 6ед. ...
3 - найти лишнее у меня всего час побыстрее...
3 - где антонимы в пословице : легче друга потерять, чем найти ...
1 - решить К/Р запр...щающий, прид..раться, вым..кать (сметану) 3) изл..жение,...
2 - змішали 70 кг насиння що має схожість 90% і 30кг насіння , схожість якого дорівнює...
1 - ответьте на эти вопросы если правильный ответ будет я и лайки но если не правильно...
3 - Составить тест из 15 вопросов на тему: нанесение мастичных составов....
2 - Представьте в виде произведения 3x³ - 2x² - 6x + 4ответы(x² - 2)(3x + 2)(x²...
3 - Кем быть? «Кем быть?» В. Маяковский Как ты считаешь, кому адресует автор своё...
3
begin
seqgen(readinteger(),x->x+1).Where(x->x mod 2 = 0).Sum.Println;
end.
Пример работы программы:
165
6806
num, sum, k: integer;
begin
sum := 0;
read(k);
for num := 2 to k do if num mod 2 = 0 then sum += num;
write(sum);
end.