Помогите решить задачу по информатике. Турбо паскаль

Question

Помогите решить задачу по информатике. Турбо паскаль

Помогите решить задачу по информатике. Турбо паскальС клавиатуры вводится натуральное число N. Вычислить произведение 10 последовательных чисел, начиная с N

Гость

Ответ(ы) на вопрос:

Accepted Answer

var n, p, i:integer; begin read(n); p:=1; for i:=n to n+9 do p:=p*i; write(p); end.