Даны действительные число а и натуральное n .Вычислить :
P=a(a-n)(a-2n)...(a-a2) (a в квадрате)
Program vosem;
Var i,n:integer;
p,a:real;
begin
WriteLn('Vvedite a');
Read(a);
WriteLn('Vvedite n');
Read(n);
for i:=1 to n do
begin
a:=a-i*n;
p:=a*(a-(i*n));
end;
WriteLn('Otvet=',p:3:3);
End.
Program vosem;
Var
i,n:integer;
p,a:real;
begin
WriteLn('Vvedite a');
Read(a);
WriteLn('Vvedite n');
Read(n);
p:=1;
for i:=1 to n do p:=p*(a-(i*n));
WriteLn('Otvet=',p:3:0);
End.
Program vosem;
Var
i,n:integer;
p,a:real;
begin
WriteLn('Vvedite a');
Read(a);
WriteLn('Vvedite n');
Read(n);
p:=1;
for i:=1 to n do p:=p*(a-(i*n));
WriteLn('Otvet=',p:3:0);
End.
Program vosem;
Var i,n:integer;
p,a:real;
begin
WriteLn('Vvedite a');
Read(a);
WriteLn('Vvedite n');
Read(n);
p:=a;
for i:=1 to n do
begin
p:=p*(a-i*n);
end;
WriteLn('Otvet=',p);
End.