Исполнитель умеет двигаться вперёд, оставляя след и поворачиваться на угол, кратный `60` градусам. Какие фигуры можно нарисовать с данного исполнителя?
1) правильный шестиугольник;
2) правильный пятиугольник;
3) квадрат;
4) правильный треугольник;
С объяснением и рисунком)

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

напишите ая алгоритм вычисления у по формуле   у=(1-х2+5х4)2(степень), где х- заданное число. учтите следующие ограничения:

1) в арифмитических выражения можно использовать только операции сложения, вычитания и умножения. 2) каждое выражение может содержать только одну арифметическую операцию. выполните трассировку алгоритма при х= 2.

у(х) = (1 - х^2 + 5*х^4)^2 - я правильно записал выражение? , используйте знаки умножения "*" и возведения в степень "^" при записи выражений!

пусть запись // означает, что последующая часть строки является комментарием.

с учетом ограничений (1) и (2), алгоритм может выглядеть следующим образом:

1. вычислить tmp1 = х*х                                    // tmp1 = х^2

2. вычислить tmp2 = tmp1*tmp1            // tmp2 = х^4

3. вычислить tmp2 = 5*tmp2                        // tmp2 = 5*х^4

4. вычислить tmp1 = 1 - tmp1                    // tmp1 = 1 - x^2

5. вычислить tmp1 = tmp1 + tmp2        // tmp1 = 1 - x^2 + 5*х^4

6. вычислить y = tmp1*tmp1                        // y = (1 - x^2 + 5*х^4)^2

при x = 2 получим:

1. вычислить tmp1 = 2*2 = 4                        // tmp1 = 4

2. вычислить tmp2 = 4*4 = 16                    // tmp2 = 16

3. вычислить tmp2 = 5*16 = 80                // tmp2 = 80

4. вычислить tmp1 = 1 - 4 = -3                  // tmp1 = -3

5. вычислить tmp1 = -3 + 80 = 77        // tmp1 = 77

6. вычислить y = 77*77 = 5929                  // y = 5929

вычислим у(х) при х = 2: y(2) = (1 - 2^2 + 5*2^4)^2 = (1 - 4 - 5*16)^2 = 5929. т.е. наш алгоритм дает верный результат при х = 2.

n=get()k=0s=0while n> =1 do      s=s+n % 10      k=k+1      n=(n-n%10)/10endprint(s,k)

var a,n,i: integer; beginwriteln('введи n'); readln(n); a: =1; for i: =1 to n do begina: =a*i; inc(i); end;

writeln('ответ: '); writeln(a); end.