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