Ответы на вопрос:
var m,i:integer;
p:real;
begin
readln(m);
p:=1;
for i:=1 to m do
p:=p*(2*i-1);
write('p=',p:0:0);
readln
end.
Популярно: Информатика
-
Kristgame07.10.2021 10:47
-
nastafill06.09.2021 12:56
-
vova14722828.02.2023 17:03
-
rudenko23201505.01.2022 16:44
-
zhan31030404.02.2020 15:03
-
prostonick11123717.02.2021 01:00
-
Zhekka12329.11.2022 04:21
-
Масяня87824.07.2020 03:42
-
saule84400712.10.2020 07:15
-
просто34629.11.2020 02:51