Написать программу вычисления произведений в паскаль 2*4*6**(2n решить

var n, y, i: integer; begin  readln(n); y : = 1; i : = 0;   repeat      inc(i);       y : = y * 2 * i;   until i = n;   writeln(y);   readln; end.

через рекурсию

 

var

functionproduct(n: integer): integer;

begin

if n = 1then

begin

product : = 2;

exit;

end;

product : = 2 * n * product(n - 1);

end;

 

 

var

n: integer;

begin

readln(n);

writeln(product(n));

readln;

end.

 

без рекурсии

 

n, y, i: integer;

 

begin

readln(n); y : = 1; i : = 0;

repeat

inc(i);

y : = y * 2 * i;

until i = n;

writeln(y);

readln;

end.

//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию uses graphabc; const       x_min = -15.0;       x_max = 15.0;       dx = 0.01; function f(x: real): real; begin       f : = arctan(3 * x + 1.5); end; begin       //настраиваем размер окна под график, влияет на маштаб       window.width : = 1000;       window.height : = 300;             window.isfixedsize : = true; // фиксируем размеры окна       coordinate.origin : = window.center; //выставляем начало координат в центр окна       coordinate.setmathematic; //выставляем направление осей как в принято       var scale : = window.width / (x_max - x_min); // вычисляем маштаб             var x : = x_min;       var y_max : = f(x_max); // подставляем реальные значения       var y_min : = f(x_min); // подставляем реальные значения             repeat               try                       var y : = f(x);                       if y > y_max then y_max : = y;                       if y < y_min then y_min : = y;               finally                       x : = x + dx;               end;       until x > x_max;             //  оси координат, стрелочки сами если надо       pen.color : = clsilver;       line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0);       line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale));       circle(0, round(1 * scale), 1); //единичная метка       circle(round(1 * scale), 0, 1); //единичная метка             x : = x_min;       repeat               try                       var y : = f(x);                       putpixel(round(x * scale), round(y * scale), clblueviolet);               finally                       x : = x + dx;               end;       until x > x_max; end.

Выполняя алгоритм, че­ре­паш­ка остав­ля­ет след в виде оди­на­ко­вых отрезков, рас­по­ло­жен­ных под углом 180°  −  2  ·  45°  =  90° друг к другу. такой угол со­став­ля­ют между собой сто­ро­ны квадрата. по­это­му за пер­вые че­ты­ре шага ал­го­рит­ма че­ре­паш­ка на­ри­су­ет квадрат, а сле­ду­ю­щие ите­ра­ции будет дви­гать­ся по уже на­ри­со­ван­но­му квадрату. следовательно, остав­лен­ный че­ре­паш­кой след пред­став­ля­ет собой квадрат.ответ под номером 3 - квадрат