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

Question

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

Answer 1

Готово....................

Comments

не верно)

---

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

---

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

---

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.

---

вот верный вариант var
a,i,p,n:integer;
begin

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

---

Последний вариант правильный, но этот парень, которому ты помог уже ушел в школу с не правильно решенной задачей.