Простая задача Опции

[agressor]

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

Ребята помогите! Очень надо.

[xds]

Код

program Nat3;

var
 i1, i2, i3, p, n: Integer;

begin
 Write('n>');
 Readln(n);

 i2 := 1;
 i3 := 2;
 repeat
   i1 := i2;
   i2 := i3;
   Inc(i3);
   p := i1 * i2 * i3;
 until p >= n;

 if p = n then
   Writeln(n, ' = ', i1, ' * ', i2, ' * ', i3)
 else
   Writeln('Невозможно');
end.

Сообщение отредактировано: xds - 16.11.2004 5:24