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 так може
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.