Дана задача по вычислению факториала, с которой вроде справился, но есть ограничения: "тип обработанных данных-longint, если результат не помещается в 4 байта программа должна сообщить об этом"
Вот что написал:
Program Factoreal;
uses crt;
var
N: longint;
M,I: integer;
Begin
clrscr;
N:=1;
write('введите число>=0 ');
readln(M);
if M=0 then N:=1
else
for I:=1 to M do
N:=N*I;
writeln ('Факториал равен:',' ',N);
readln;
end.
Как добиться того чтобы программа сообщала о переполнении? Перепобовал многое, но в итоге только еще больше запутался.
Может есть у кого какие идеи?
Сообщение отредактировано: Евгений -