Вывести значения всех факториалов от 1 до n

@Konso1 · Регистрация: 19.11.2010

Author24 — интернет-сервис помощи студентам

помогите пожалуйста .

Ввести целое n , если n > 0, то вывести в каждой строке значения всех
факториалов от 1 до n с указанием при этом сомножителей из которых
он состоит. Например, для n = 5 формат вывода таков:
1=1
1*2=2
1*2*3=6
1*2*3*4=24
1*2*3*4*5=120 (при помощи цикла)

@Олегыч · 19.11.2010, 23:08

необходимо посчитать y=1+x/2+ x(2)/3+x(3)/4...при /x/<1
расчет продолжать до тех пор пока /y/будет боьлше заданной погрешности е,е<=/x/
помогите найти ошибку

Pascal

program lo;
var l,x,e,y,m:real;
    n:integer;
begin
 writeln('vvedite x');
 read(x);
 writeln('vvedite e');
 read(e);
 
  n:=1;
  l:=1;
  m:=1;
begin
  if (e<=abs(x)) and (abs(x)<1) then
  begin
  while abs(l)>=e do
   begin
    n:=n+1;
    m:=m*x;
    l:=x*m/n;
    y:=y+l;
    writeln('y=',y);
   end;
   end
   else writeln('abs(x)>1 or e>=ans(x)');
end;
readln;

@Konso1 · 19.11.2010, 23:13 **[ТС]**

Блин совсем запутался (((

@SuPeR XaKer · 19.11.2010, 23:34

Pascal

var
 i,k,N:integer;
 f:longint;
begin
write('Ââåäèòå N:=');
readln(N);
if n>0 then
begin
f:=1;
for i:=1 to N do
begin
f:=f*i;
writeln;
 for k:=1 to i do
 if k<>1 then
  begin
   write('*',k);
  end
   else
    write(k);
 write('=',f);
end;
end
 else
  writeln('n<0!!!');
readln;
end.

@Konso1 · 19.11.2010, 23:38 **[ТС]**

спасибо )) ожна спасенная жизнь на вашем счету )))

@Konso1 0 / 0 / 0 Регистрация: 19.11.2010 Сообщений: 6
		1
	Вывести значения всех факториалов от 1 до n 19.11.2010, 22:26. Показов 2235. Ответов 4 Метки нет (Все метки) помогите пожалуйста . Ввести целое n , если n > 0, то вывести в каждой строке значения всех факториалов от 1 до n с указанием при этом сомножителей из которых он состоит. Например, для n = 5 формат вывода таков: 1=1 12=2 123=6 1234=24 12345=120 (при помощи цикла) 0

@Konso1 0 / 0 / 0 Регистрация: 19.11.2010 Сообщений: 6
	19.11.2010, 23:13 [ТС]	3
	Блин совсем запутался ((( 0

@Konso1 0 / 0 / 0 Регистрация: 19.11.2010 Сообщений: 6
	19.11.2010, 23:38 [ТС]	5
	спасибо )) ожна спасенная жизнь на вашем счету ))) 0