Question

СОСТАВИТЬ  программу на языке паскаль(СРОЧНО!)
a(a-1)(a-2)(a-3).....(a-n)

Answer 1

готово....................

ffe085c4067d85a4254a42e5bff44a2a.pas

Answer 2

a =3, n=2, в ответе должно быть 3*2*1=6, выводит ноль

Answer 3

Второй тест a=5, n=2, должно быть 5*4*3=60, выводит 40 => пожаловаться не правильное решение.

Answer 4

var
a,i,p,n:integer;
begin

writeln ('Введите число a');
readln (a);
writeln ('Введите число n');
readln (n);
p:=a;
for i:=1 to n-1 do begin
a:=a-i;
p:=p*a;
end;
write ('Ответ: ',p);
end.