Паскаль ABC.NET: var s,i,n:integer; begin writeLn('Введите n'); read(n); i:=1; s:=1; while i<=(2*n-1) do begin s*=i; I+=2; end; writeLn('Произведение равно ',s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
