Составить программу, которая заполняет моссив a(n) в порядке 1 2 3 1 2 3

// pascalabc.net 3.2, сборка 1325 от 19.10.2016 begin   var n: =readinteger('n=');   seqgen(n,1,x-> x mod 3 +1).println end. пример n= 15 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3

Program massiv123;   const n=30;   type massiv=array[1..n] of integer;   var i: integer; a: massiv;   begin  for i: =1 to n do  if i mod 3=0 then a[i]: =3                else a[i]: =1;   for i: =1 to n do  if a[i]=3 then a[i-1]: =2;   write('массив: ');   for i: =1 to n-1 do  write(a[i],',');   write(a[n],'; ');   end. если надо изменить кол-во цифр, то изменяйте в  const n=кол-во;

ответ:

объяснение:

static void main(string[] args)

        {

            double a, b, c, d, sum;

            double sum1;

            console.writeline("введите a");

            a = convert.todouble(console.;

            console.writeline("введите b");

            b = convert.todouble(console.;

            console.writeline("введите c");

            c = convert.todouble(console.;

            console.writeline("введите d");

            d = convert.todouble(console.;

            sum = math.sqrt(math.pow(a - b, 2));

            sum1= math.sqrt(math.pow(c - d, 2));

            console.writeline("расстояние между точками а и в=" + " " + sum);

            console.writeline("расстояние между точками c и d=" + " " + sum1);

            console.readkey();

        }

    }

}