Нужно написать код через цикл с условием: группа While Дано целое число N (> 0). Найти двойной факториал N: N
Foxxx11
1
08.02.2021 15:19
0
Другие вопросы по теме Другие предметы
saule19611225
01.10.2019 17:07
привет985
01.10.2019 17:09
Fenef
18.11.2020 17:42
mixtalalai2017
18.11.2020 17:42
gabpara007
25.11.2021 17:54
05DKuzmin
25.11.2021 17:53
ppavlowich
18.10.2020 04:34
vika8914
18.10.2020 04:34
valera253
18.10.2020 04:34
darinchiiik
18.10.2020 04:34
Популярные вопросы
- Кому не сложно с заданиями ,...
2 - Как выбить чжун ли в игре геншин импакт...
1 - Выбери три утверждения, характеризующие республиканский период в истории...
3 - Какой общей темой обединяет обо текста. Запишите тему каждого тексту...
3 - Kuvvet-mesafe grafiği nasıl çizilir...
2 - Реши уравнения. (65 - 62) · а = 18...
1 - НУЖНА Определите концентрацию азотной кислоты, стекающей с первой тарелки...
3 - В какие города совершают паломничество мусульмане...
1 - ТЕКСТ ЗАДАНИЯ Answer the questions. Write NO MORE THAN THREE WORDS OR A...
2 - Сольфеджио построить в ми бемоль мажоре D64 t53 s64 D6 t53 s64 t64 D7 T3...
2
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.