Дано натуральное число 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.
Что тут не так?..
Заранее благодарен
