Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Паскаль построить программу. Циклический алгоритм. a (a-1)(a-2)(a-3)...(a-n)

Ответ оставил Гость

Var   n,a,res:integer; 
 i:integer;
begin 
n:=1;  
write(Введите N:);  readln(n); 
write(Введите a:);  readln(a); 
res:=a; 
for i:=1 to n do 
begin   
res := res*(a-i); 
end; 
writeln(Ответ:,res)end.

Пример: 
Введите N:2
Введите a:4
Ответ:24