Program n1; Uses CRT; Var i,n,m: integer; begin ClrScr; writeln('Vvedite n'); readln(n); i:=1; m:=1; while i<2*n-1 do begin i:= i+2; m:= m*i; end; writeln(m); readln end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
