превышает ли 270 произведение первых m чисел от 1 до n

[Кажымурат]

Здраствуйте я ознакомился с правилами форума.
Но у меня возникла проблема для вас она скорее всего окажется очень смешной но для неопытного программиста весьма тяжолая.
Мы работаем в программе Pascal ABC и в конце симестра нам выдали задачи при решение которой будет выставлятся оценка.
Если можете решить или подтолкнуть к решению(дать источник откуда набратся знаний).
В обшем задача звучит так "Проверить, превышает ли 270 произведение первых m чисел от 1 до n.
И решить ей нужно при помоши циклов.


по правилам форума название темы
должно адекватно отражать суть решаемой задачи!
На первый раз я исправлю тему. В последующем такие темы будут удаляться или закрываться!

Модератор.

[vasilisk-green]

Если я правильно понял суть задачи... (Delphi7)

program Pro270;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n, i: Word;
  x: Longint;
  m : Longint = 1;

begin
  write('X = '); readln(x); // here yours '270'
  write('N = '); readLn(n);
  for i := 2 to n do
  begin
    m := m * i;
  end;

  writeLn(n, '! = ', m);

  write(x, ' is ');
  if (x <= m) then
  begin
    write('not ');
  end;
  writeLn('greater than ', m);
  readLn;
end.

[dekameron]

PROGRAM z;
USES Crt;
VAR i,s,n:integer;
BEGIN
clrscr;
write('n=');
readln(n);
clrscr;
s:=1;
for i:=2 to abs(n) do
begin  
s:=s*n;
if s>270 then break;
end;

if s> 270
then writeln('prevyshaet (',s,')')
else writeln('ne prevyshaet (',s,')');
repeat read until keypressed;
END.

А вообще то такое произведение зовется факториалом числа n (запись n!)
И как известно, 5! = 120, a 6! = 720
Тоесть для такой задачи достаточно проверить, лежит ли это число на промежутке 0..5

ABS(n) взято для того, чтобы не было проблемы с отрицательными числами, проверку на отрицательность сможешь добавить сам.
Так же, 0! = 1 - это так принято считать и все