Помогите,пожалуйстанайти произведение чисел от N до 1паскаль abc. Created by aliceblack01. informatika-ru

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

aliceblack01 @aliceblack01

July 2022 1 16 Report

Помогите,пожалуйста
найти произведение чисел от N до 1
паскаль abc

Answers & Comments

WhiteQuartz

Verified answer

Var N, a:int64;

begin

write('Введите N: ');

readln(N);

a := 1;

for var i := N to 1 do

a := a * N;

writeln('Произведение чисел от 1 до ', N, ' = ', a);

end.

1 votes Thanks 1

aliceblack01 благодарю,но учитель сказала именно от n до 1, мол, в обратном порядке

Answers & Comments

Verified answer

Helpful Links

Helpful Social