Задачи., 4 простых задания!!! Опции

[Таня]

Кто нибудь, пожалуйсто решите эти задания!
Линейные программы.
Вычисление по формулам. Вычислить значение выражения по формуле (все
переменные принимают действительные значения):
((x+y)/(y+1))-((xy-12)/(34+x))
Развилка.
Даны три числа а,в,с. Определить, какое из них равно d.Если ни одно не
равно d,то найти max(d-a,d-b,d-c)
Циклы.Ряды.
Дано натуральное число N Вычислить
(cos1/sin1)*(cos1+cos2)/(sin1+sin2)...(cos1+cos2+...+cosN)/(sin1+sin2+...+sinN)
Одномерные массивы.
Дана последовательность действительных чисел а1,а2,...ан.Выяснить,
будет ли она возрастающей.
Благодарю заранее!!!

[Ozzя]

1.

var
  z,x,y:real;
begin
  read(x,y);
  z:=((x+y)/(y+1))-((xy-12)/(34+x));
  write(z);
end.

3-е и 4-е есть либо в ФАК, либо мнократно решалось - поиск.

[samec]

2.

var
  a,b,c,d, max:integer;
begin
  read(a,b,c,d);
  if (a<>d)and(b<>d)and(c<>d) then
   begin
    max:=d-a;
    if (max<(d-b)) then max:=d-b;
    if (max<(d-c)) then max:=d-c;   
    write('max=',max);
   end
  else
   begin
     if (a=d) then writeln('a=d');
     if (b=d) then writeln('b=d');
     if (c=d) then writeln('c=d');
   end;
end.

[Lapp]

!

Таня, ты уже должна знать правила, но ошибки повторяешь! Из уважения к ответившим я не удаляю тему. В следующий раз последует мгновенное удаление с понижением твоего рейтинга. Срочно измени название темы И не пость по нескольку задач в одну тему

[Lapp]

!

Тема закрыта ввиду полного игнорирования автором Правил Форума и указаний Администрации.