Помогите найти произведение чисел k*(k+1)*(k+2)*...*2k в turbo pascal!!!!!!!!!!!!!!!!
Помогите найти произведение чисел k*(k+1)*(k+2)*...*2k в turbo pascal!!!!!!!!!!!!!!!!
Гость
Ответ(ы) на вопрос:
Гостьvar
prod, i, k: integer;
begin
prod := 1;
readln(k);
for i := k to 2 * k do
prod := prod * i;
writeln(prod)
end.
Не нашли ответ?
Похожие вопросы