Последовательность.

[kolyan45]

1.Задана последовательность формулой An=sqr(n) + 1. Вывести первые 10 членов последовательности и найти сумму четных чисел.
3. Найти количество целых решений неравенства exp(x)-8x+15>0 на отрезке [1;9]

Заранее большое спасибо

[xDyPx]

для первого задания на паскале приблизительно так:

var int a,i,s;
...
for i:=1 to 10 do
Begin
a:=sqr(i)+1;
write(a);
if a mod 2==0 then s:=s+a;
End;

[kolyan45]

Спасибо большое!
А первую не может кто-нибудь объяснить??Я попробую сам написать!

[Stilet]

А первую не может кто-нибудь объяснить?

А кода разве не хватает?

[kolyan45]

Ой тоесть со второй задачей!

[Stilet]

Найти количество целых решений неравенства exp(x)-8x+15>0 на отрезке [1;9]

В цикле проверяй

r:=exp(x)-8x+15;
if (r-trunc(r))<0.00001 then оно достаточно целое.

Но вообще как по мне тут придраться к любому решению можно. Не бывает в компьютерной области очень целых чисел, бывают предельно округленные.