Program chisla;
var a,b:integer;
begin
read (a);
if
b=a div 2 then
write('Число четное') else
write('Число нечетное');
end.
Слева от троеточия - последовательность (не помню какая)
Справа от троеточия - формулы вычисления этой последовательности, следовательно тебе надо разобрать только формулу.
Я попробую тебе объяснить, а ты уже попробуй сделать схему (не помню, как схема строится):
m - постоянно увеличивается на +1, так и получается последовательность (например, m=2 -> x^3/3 и т.д.).
Можно воспользоваться циклом, а в цикле прописать то, что m увеличивается на +1 -> m=m+1, и прописать формулу (x^2*m-1)/(2*m-1)
Вот, в принципе, и всё. Надеюсь разберёшься дальше
1) 2
2) 4
3) 2 (Переводим в одну сист счисл, считаем)
4) 1 (Переводим всё в одну сист счисл, проверяем выполнение условия)