Помощь - Поиск - Пользователи - Календарь
Полная версия: Простая задача
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
agressor
16.11.2004 4:41
Дано натур. число n. Выясните можно ли представить n в виде произведения трёх послед. натур чисел.

Ребята помогите! Очень надо.
xds
16.11.2004 5:24
Код
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.