Разработайте циклические алгоритмы для рисования следующих фигур

n = 21 (результат измерений от 10 до 30)

n = 2^i

2^i = 21

i = 5 бит

27 * 5 = 135 бит

ответ. 135 бит

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.