Найти произведение ряда - Turbo Pascal (33677)

Формулировка задачи:

Даны действительное число a и натуральное число n. Вычислить : p=a*(a-n)*(a-2*n)*...*(a-n2). Использовать цикл с предусловием. Программу и блок-схему алгоритма. Заранее благодарен.


textual

Код к задаче: «Найти произведение ряда - Turbo Pascal (33677)»

var
   p,i,a,n :integer;
begin
writeln('введите числа a, n :');
readln(a,n);
i:=1;
p:=a;
while i<=n do
begin
  p:=p*(a-i*n);
  i:=i+1;
end;
writeln(p);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.467 из 5

Источник