Question

Решите на пасхале, пожалуйста


Найти сумму четных целых чисел на промежутке от 1 до K.

Формат ввода:

На вход подается неотрицательное, целое число K, не превосходящее 30000.

Формат вывода:

Целое число.

Пример входных данных

10

Пример выходных данных

30

Answer 1

//PascalABC.NET версия 3.3

begin
  seqgen(readinteger(),x->x+1).Where(x->x mod 2 = 0).Sum.Println;
end.

Пример работы программы:
165
6806 

Answer 2

var
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.