Задания.ру
Анонимно
3 часа назад

Нужно написать код через цикл с условием: группа While

Дано целое число N (> 0). Найти двойной факториал N: N!! = N·(N–2)·(N–4)·… (последний сомножитель равен 2, если N — четное, и 1, если N — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.
Буду очень благодарен!!

Ответ

Анонимно

Ответ:

program While6;

var

Rez :Real;

N :Integer;

begin

Write('Введите N: ');

Readln(N);

Rez:=1;

while N>=2 do

begin

Rez:=Rez*N;

N:=N-2;

end;

Writeln('Двойной факториал равен: ',Rez);

end.

Новые вопросы по Другим предметам

В каких словах буква ю обозначает один звук
1 - 4 классы
3 минуты назад
Приведи примеры знаменитых сооружений Древнего мира
1 - 4 классы
4 минуты назад
Кто такая Чудо-женщина дам50 баллов.
1 - 4 классы
6 минут назад
Какие человеческие качества ты считаешь наиболее важными для дружбы:помощь;доброта;умекние прощать обиды;умение выслушивать;желание делать подарки, делиться вещами;умение заступиться за друга;разделит...
5 - 9 классы
7 минут назад
Какого человека называют решительным помогите плиз!
1 - 4 классы
8 минут назад