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