Напишите программы вычисления произведения: a*(a+1)*(a+2)*...*(a+n-1)
Напишите программы вычисления произведения: a*(a+1)*(a+2)*...*(a+n-1)
Гость
Ответ(ы) на вопрос:
Гостьprogram lol (input, output);
var a, n, b, i:integer;
begin
read (a, n);
b:=a;
for I=1 to n-1 do
a:=a*(b+I);
writeln (a);
end.
Не нашли ответ?
Похожие вопросы