Последний сомножитель равен 2, если N — четное, и 1, если N — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число
program while6;
uses crt;
var
f : real;
n,i : byte;
begin clrscr;
write('Введите число ');
readln(n);
if n mod 2 = 0 then
i:=2
else i:=1;
f:=1;
while i<=n do
begin
f:=f*i;
i:=i+2;
end;
writeln(n,'!!=',f:1:0);
readln;
end.
Похожие записи/страницы:
- Дано целое число N (> 0). Если N — нечетное, то вывести произведение 1•3•...•N; если N — четное, то вывести…
- Дано целое число N (>0).Найти произведение N!=1*2*...*N (N-факториал).Чтобы избежать целочисленного…
- Дано целое число N >0. Используя один цикл, найти сумму 1! +2! + 3! + ...+N! (выражение N! — N-факториал —…
- Дано целое число N (> 0). Найти сумму 11 + 22 + … + NN. Чтобы избежать целочисленного переполнения, вычислять…
- Дано целое число. Вывести строку-описания вида "отрицательное четное число", "нулевое число" "положительное…
- Дано целое число N. Вывести сообщения типа «N-четное отрицательное», «N- четное положительное», «N=О»,…
- Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «четное двузначное число»,…
- Дано целое число, лежащее в диапазоне1-999. вывести его строку описания вида "четное двузначное число",…