Паскаль! вычислить произведение натуральных чисел, начиная от 12 до 18

Var s,a: integer; begin s: =1; for a: =12 to 18 do s: = s * a; writeln (s); end . писал с телефона

Смотри, начало отсчета: 0; 0   сместиться на (1, 3) - оказываемся в  (1, 3)  сместиться на (1, -2) - прибавляем к    (1, 3) +  (1, -2)  = (2,1) кц, в условии сказано что это надо повторить 2раза значит умножаем на 2 =  (4,2) сместиться на (2, 6) - прибавляем  (2, 6) = (6,8)(6,8) это точка в которой мы окажемся в конце программы, теперь нам надо чтобы чертежник перешёл в начальную точку (0 0), чтобы сделать это мы должны от  (6,8) отнять  (6,8), другими словами к  (6,8) прибавить  (-6,-8). ответ: (-6,-8) - это первый вариант. в ответе пишем 1

Решение: три варианта для обеда, три варианта для десерта. возможных вариаций - 9(1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3). ответ: 9 p.s. - график предоставить могу, но мне, если честно, лень его чертить, сканировать и выкладывать для такой простенькой . поэтому предоставляю тебе альтернативный вариант: 1)чертишь три прямоугольника 2)отводишь от каждого из них по три стреолчки 3)на концах стрелочек чертишь еще три треугольника. в нижней строке должно получиться 9 прямоугольников. 4)записываешь в каждый, по очереди, каждую из мной выше вариаций.