Паскаль: Напишіть програму обчислення добутку а(а+1)(а+2)....(а+n-1)
Паскаль: Напишіть програму обчислення добутку а(а+1)(а+2)....(а+n-1)
Гость
Ответ(ы) на вопрос:
Гостьprogram Zd;
var
a, n, I, res: Integer;
begin
WriteLn('Input the a: ');
Read(a);
WriteLn('Input the n: ');
Read(n);
res:=a;
for i:=1 to n - 1 do
res:=res * (a + i);
WriteLn('Результат: ', res);
end.
Не нашли ответ?
Похожие вопросы