Var s,k: integer; begin s : = 1; for k : = 1 to 17 do s : = (k-5)*s; writeln(s); end. напишите ответ !

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку