По паскалю. Сдавать в понедельник думал мне помогут увы не помогли .. последняя надежда...
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
Народ срочно нужна помощь
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Ну что кто поможет? не за сбесплатно если что..... очень надо
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);
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);
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
