помогите пожалуйста нужен алгоритм и программа!
http://lampert.ya.ru/replies.xml?item_no=3

а так???
program 123;
uses crt;
var k, x:real;
begin
clrscr;
k:=1;
x:=30;
while k<=10 do
begin
writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
k:=k+0.5;
end;
readkey;
end.

если что-то не получается делайте скриншот ошибки и выставляйте сюда)так легче решить проблему)

http://lampert.ya.ru/replies.xml?item_no=3 (IMG:style_emoticons/default/smile.gif)
а можно приближенно к моему примеру
1
program;
var t,x:real; k,m:integer;
begin writeln('x,m'); readln(x,m);
k:=1; t:=1;
for k:=1 to m do begin
t:=t*((sin(x)/cos(x)+k)/(2*k*x));
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end.
2
program 123;
uses crt;
var k, x:real; begin clrscr;
k:=1; x:=30;
while k<=10 do begin
writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
k:=k+0.5;
end;
readkey;
end.
почему не вводите значение 'M'?
зачем задавать фиксированное значение k, когда оно должно вводиться с клавиатуры?
и что это еще за условие "while k<=10 do begin"?
еще вроде нужно задавать в начале цикла значение Т, ведь это нужно для отсчета цикла,
поэтому произвольно задаю 1.
подробней отвечайте пожалуйста. (IMG:style_emoticons/default/smile.gif)

зачем задавать фиксированное значение 'X', когда оно должно вводиться с клавиатуры?