Дано натурально число n. Вычеслить
1*3*5*..*n для нечетных n
N!!=
2*4*6*..*n для четных
Вот мой код:
var
a, n, sum1, sum2:integer;
begin
readln(n);
sum1:=1;
sum2:=1;
if a mod 10 = 2 or 4 or 6 or 8 or 0
then
for a:=1 to n do
begin
sum1:=a*sum1;
end
else
for a:=1 to n do
begin
sum2:=a*sum2;
end;
writeln(sum1, ' ', sum2);
end.