Паскаль построить программу. Циклический алгоритм. a (a-1)(a-2)(a-3)...(a-n)
Паскаль построить программу. Циклический алгоритм. 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
Не нашли ответ?
Похожие вопросы