[Row]

Дано натуральное число n. Выяснить, можно ли представить n! в виде произведения трех последовательных целых чисел.

Вот мой код:

Код:

uses
  SysUtils; var n,i,f:integer; p:boolean;

begin
writeln('vvedite n');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
p:=false;
for i:=1 to n do
if i*(i+1)*(i+2)=f then
  begin
    p:=true;
    writeln(i,'*',i+1,'*',i+2,'=',f);
  end;
if (p=false) then writeln('Ne vozmozno');
readln;
end.

до 5 считает нормально, если ввести 6, выводит "невозможно", хотя факториал 6 равен 720 и его можно представить как 8*9*10.
Что тут не так?..
Заранее благодарен

[Snake22]

ну потому что если ввести 6 то f будет равна 720,
а в условии
for i:=1 to n do begin
if i*(i+1)*(i+2)=f then
вот эта вот строчка i*(i+1)*(i+2) после шести раз будет 336 равна а не 720,так что в программе какбы всё верно,гдето условие,формулу, не правильно записал просто

[Row]

ошибка в этой строчке

Код:

for i:=1 to n do

получается если вводим 5, то программе будет доступно число 6 и 7(по формуле)

Код:

i*(i+1)*(i+2)

если ввожу 6, доступно 7 и 8... тогда как для представления 720 требуются числа 8,9,10.
Значит нужно изменить конечное значение счетчика, чтобы проверял не до n... ну например хотя до 20... или 30... или 100...
напрашивается вопрос: Каким должно быть конечное значение???

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
n,i,f:integer; p:boolean;  

begin
writeln('vvedite n');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
p:=false;
i:=1;
while (i*(i+1)*(i+2))<=f do
begin
  if i*(i+1)*(i+2)=f then
  begin
    p:=true;
    writeln(i,'*',i+1,'*',i+2,'=',f);
  end;
  Inc(i);
end;
if (p=false) then writeln('Ne vozmozno');
readln;
end.

[Row]

блин, вот я осел))
зациклился на счетчике и все, про while не подумал даже))
спасибо большое))