Нобхадима помощь по решению задач.

[Данилыч Д.]

1)Составте программу, с помощью которой найдите значение выражения:
y = (квадратный корень) а (в степени минус 2) + в (в степени минус 2), где
а=(кубический корень) m + (кубический корень) n, в=(модуль) m – тангенс n,
m=(квадратный корень)2, n=е.

2)Составьте программу , с помощью которой найдите сумму :cos0.4+cos0.6+…+cos2.4.

3)Задана численность населения страны. Известно ,что население страны ежегодно увеличивается на 1/15 наличного состава жителей. Составить программу ,в которой с помощью цикла repeat определить , когда население страны удвоится.

4)Составьте программу с помощью которой определите сумму 2!+4!+6!+8!+…, так чтобы сумма не превышала 50.000.

5)Задан номер месяца . Составьте программу ,с помощью которой определите названия месяца по его номеру.

6)Заполнить массив , применив для его заполнения формулу а[i]=x*i(в квадрате)/i+x.

[pascal65536]

Пусть  I = 0.2 и S = 0
Пока I < 2.4 выполняем
        I = I + 0.2 и S = S + cos(I)
Печатаем S
Enjoy

Остальные задачи решать?

[pascal65536]

Введите Месяц
Если Месяц = 1 Печатай Январь
...
Если Месяц = 12 Печатай Декабрь
Enjoy

Ещё решения нужны?

[pascal65536]

Var A : Array[1..10] Of Real;
    I : Integer;
    X : Real;
Begin
     X := 0.5;
     For I := 1 To 10 Do
     A[I] := X * SQR(I) / (I + X);
     For I := 1 To 10 Do
         WriteLn(A[I]:3:5);
End.

[Данилыч Д.]

КТО МОЖЕТ СДЕЛАТЬ 1 ЗАДАЧУ?!

[Alex21]

  n:=exp(1);
  m:=sqrt(2);
  a:=exp(ln(m)*(1/3))+exp(ln(n)*(1/3));
  b:=abs(m)-(sin(n)/cos(n)); //т.к. тангенса нет, делаем так
  y:=sqrt(exp(ln(a)*(-2))+exp(ln(b)*(-2)));

[Данилыч Д.]

Люди !! кто может сделать 3 и 4??

[kommunist]

У вас что самого не получается? Кидайте код. Будем разбираться.

[Данилыч Д.]

Не силен я в этом.....
все что я в начале темы написал это все что нам дали ...кода нету...

[Alex21]

Третья и Четвертые задачи - Аналогичны.
Поиск по форуму "Сумма ряда" или "сумму ряда"