Помогите решить

[макс122]

Помогите решить

Не понимаю как сделать помогите..

 

[Vladimir_S]

Не понимаю как сделать помогите..

Потому что учиться надо было, а не лоботрясничать. И еще: ну сколько я могу просить, требовать, умолять, угрожать, наказывать и т.п. для того, чтобы товарищи студенты не выкладывали запросов на программы без четкого указания языка программирования? Тщетно. Видимо, лоботряс полагает, что если напишет "на Паскале" (или на QB, С++ и т.д), у него пальчики любимые отвалятся! Лишь бы не перетрудиться ненароком.
Ладно. Поскольку, судя по предыдущим топикам, Вас устраивает Паскаль, то получите:

Var
 x,g:real;
Begin
 Write('x = ');
 Readln(x);
 If x<0 then
  g:=Exp(x*Ln(5))-Cos(x)/Sin(x)
 else
 If x>0 then
  g:=2*Cos(x*2)
 else g:=1;
 Writeln('g = ',g:0:5);
 Readln;
End.

Var
 T:real;
 i:Integer;
Begin
 T:=1;
 For i:=0 to 8 do T:=T*(14+3*i)/((3+2*i)+Sin(4+2*i));
 Writeln('T = ',T:0:5);
 Readln;
End.

И еще. За то время, что Вы тут ноете с этими "заданиями" (между прочим, написание этих, с позволения сказать, "программ" у меня заняло чуть меньше 4 минут), Вы вполне могли бы разобраться с азами программирования, чтобы по крайней мере не позориться, выкладывая подобное. Фу!