Решите на пасхале, пожалуйстаНайти сумму четных целых чисел на интервале от

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


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

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

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

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

Целое число.

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

10

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

30

Задать свой вопрос
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.
//PascalABC.NET версия 3.3

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

Пример работы программы:
165
6806 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт