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

В чём проблема-то?Где собственные наработки?

program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=0;
repeat
t:=t+((sin(x)/cos(x)+k)/2*k*x);
k:=k+1
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end. (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/unsure.gif)

Могу ошибаться, но это вы случайно не сумму пытаетесь сделать? У вас вроде произведение?!
Попробуйте вручную для k=1, k=2...

program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=0;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=1,k:=2...k:=m
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end. (IMG:style_emoticons/default/smile.gif)
помогите пожалуйста я же девушка

на первом шаге получим вроде 0.

Первый, кто скажет, что я мальчик, пусть бросит в меня камень. (IMG:style_emoticons/default/rolleyes.gif)


Тоже так думаю. Ура, значит я права. (IMG:style_emoticons/default/clap.gif)

щас попробую (IMG:style_emoticons/default/cool.gif)

проверьте пожалуйста
program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=1;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=1; k:=2; k:=m
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end