Question

4) Використовуючи цикл for..to..do
написати фрагмент програми для
знаходження добутку чисел від 2 до
10 включно на Паскаль​

Answer 1

var i,a:integer;

begin

a:=1;

for i:=2 to 10 do

a*=i;

write(a)

end.

Как считает программа:

a = 1*2, a = 2*3, a = 6*4, a = 24*5, a = 120*6, a = 720*7, a = 5040*8, a = 40320*9, a = 362880*10, a = 3628800