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

для начала это не циклическая программа..почитайте про циклы сначало
http://school87.kubannet.ru/pascal/5.html

t:=1;
while (k<=m) do


вообще не понятно к чему обе строчки, притом нигде не фиксируется чему равна переменная М, а Т не может равняться 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*{...}
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end. rolleyes.gif
насчет T думаю надобно задавать значение, для начала цикла

как быть с Т подскажите пожалуйста?

program;
var t,x:real; k,m:integer;
begin writeln('x,m'); readln(x,m);
k:=1; t:=1;
repeat t:=t*{...}
k:=k+1
until k>m;
writeln('t=',t:10:4);
readln;
end. rolleyes.gif
так може