сколькими способами можно выбрать из натуральных чисел от 1 до 30 три числа,так чтобы их сумма была четной?

Всего четных чисел от 1 до 30 - 15, нечетных - тоже 15
Чтобы сумма 3х чисел была четной, нужно чтобы ЛИБО все три были четными, ЛИБО 1 четное, 2 нечетных.
Выбрать 3 четных из 15 - ЧС из 15 по 3
Выбрать 1 четное, 2 нечетных - ЧС из 15 по 1* ЧС из 15 по 2.
Всего: ЧС из 15 по 3 + ЧС из 15 по 1* ЧС из 15 по 2 =
15! /(3!*12!) + 15* 15! /(2!* 13!) = 455+ 1575=2030
ЧС - число сочетаний

14 вроде)))))))))) )
вот на Паскале.... вроде так
var
a : array [1..30] of integer;
s,d,g,i:integer;
begin
for i:= 1 to 29 do
a:=i+1;
g:=0;
for i:= 1 to 29 do
begin
if (a+a[i+1]+a[i+2]) mod 2 = 0 then inc(g) else inc(d);
end;
writeln(' ',g);
end.

Всего четных чисел от 1 до 30 - 15, нечетных - тоже 15
Чтобы сумма 3х чисел была четной, нужно чтобы ЛИБО все три были четными, ЛИБО 1 четное, 2 нечетных.
Выбрать 3 четных из 15 - ЧС из 15 по 3
Выбрать 1 четное, 2 нечетных - ЧС из 15 по 1* ЧС из 15 по 2.
Всего: ЧС из 15 по 3 + ЧС из 15 по 1* ЧС из 15 по 2 =
15! /(3!*12!) + 15* 15! /(2!* 13!) = 455+ 1575=2030