Developing.ru

По паскалю. Сдавать в понедельник думал мне помогут увы не помогли .. последняя надежда...

1.Найти сумму первых n членов ряда
Y=(x+1)/(x+2)+(x+2)/(x+3)+(x+3)/(x+4)+...(x+n)/(x+n+1).
2. Дана последовательность из N чисел. Определить сумму элементов кратных 3 и пяти.
(а,b- любое число , x принад [-10;10] с шагом отличным от 1 или -1
3. {sin(x) при x<=a
y={cos(x) при a<x<=b
{tg(x) при x>b
4. Вводится последовательность. Первый отрицательный элемент является окончанием последовательности. Подсчитать Кол-во жлементов в последовательности.

-------------------------------

1) подсчитать кол-во пар элементов прямоугольной матрицы, удовлетворяющих условию: A[i,j]=-A[j,i].
Напечатать эти пары и их индексы...

2)Преобразовать исходную матрицу A(n,m) так, чтобы последний элемент каждой строки был заменен суммой предыдущич элементов той же строки.

3)Дана матрица В(9,9). Вычислить сумму элементов, расположенных выше и ниже побочной диагонали.

---------------------------------

1) Найти значение максимального элемента. Ввести число "М". Вставить это число "М" за максимальным элементом

2) Ввести массив , расзмернось котороо значительно меньше, чем размерность масиива А. Определить сколько раз каждый эллемент массива
В всречается в массиве А

3) из массива А удалить все элементы кратные 5 и не кратные 3

Ну что кто поможет? не за сбесплатно если что..... очень надо

1. Y:=0;
for i:=1 to N do Y:=Y+(x+i)/(x+i+1)
2. for i:=1 to N do
if a mod 15=0 then count:=count+a
3. function y(x:real):real;
begin
if x<=a then y:=sin(x)
else if x<=b then y:=cos(x)
else y:=tan(x);
end;
4. count:=0;
repeat
readln(a);
inc(count);
until a<0;
dec(count);

а целиком можешь?

Хыиуду писал(а):http://bash.org.ru/quote/393855

Улыбнуло
Зачет.