Факториал четных чисел в диапозоне от 2 до 12 включительно .
Программу я написал , только вот в последнем действии 3840 х 12 получается отрицательное число , не могу понять где , помогите плиз , вот мой код:
uses crt;
var
p,i,k:integer;
begin
clrscr;
p:=1;k:=0;
for i:=1 to 6 do
begin
k:=k+2;
p:=k*p;
end;
writeln(p);
readln;
end.
М | Тегами не забываем пользоваться volvo |
Integer не вмещает значение 3840 х 12, используй Word или LongInt...
спасибо , я ошибка то детская емое