Решите на пасхале, пожалуйста
Найти сумму четных целых чисел на промежутке от 1 до K.
Формат ввода:
На вход подается неотрицательное, целое число K, не превосходящее 30000.
Формат вывода:
Целое число.
Пример входных данных
10
Пример выходных данных
30
Найти сумму четных целых чисел на промежутке от 1 до K.
Формат ввода:
На вход подается неотрицательное, целое число K, не превосходящее 30000.
Формат вывода:
Целое число.
Пример входных данных
10
Пример выходных данных
30
More Questions From This User See All
Answers & Comments
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.