Даны два массива а и в, состоящие из 6 элементов. объединить два массива в один массив с чередованием элементов исходных массивов. вывести новый массив. паскаль.

Program z10; var a,b: array [1..6] of integer; i: integer; begin randomize; for i: =1 to 6 do begin a[i]: =random(999); end; for i: =1 to 6 do begin b[i]: =random(999); end; for i: =1 to 6 do begin write(a[i],' ',b[i],' '); end; end.

Uses crt; const n=6; var i: integer; a,b: array[1..6] of integer; begin writeln('введите элементы массива a.'); for i: =1 to n do read(a[i]); writeln('введите элементы массива b.'); for i: =1 to n do read(b[i]); for i: =1 to n do write(a[i],' ',b[i],' '); end.

  program n_1;   uses crt; var i,r,n: integer; begin  readln(n);   r: =1;   for i: =1 to n do  //цикл for  r: =r*i;   writeln('for: ',r);   i: =1;   r: =1;   while i< =n do      //цикл while  begin    r: =r*i;     inc(i);   end;   writeln('while: ',r);   i: =1;   r: =1;   repeat                //цикл repeat    r: =r*i;   inc(i);   until i> n;   writeln('repeat: ',r); end.

Var a,b,c: int64;     i,j,k,n,m,r,p,s: integer; begin   for i: =1 to 9 do     // буква х   for j: =1 to 9 do     // буква г   for k: =1 to 9 do     // буква т   for n: =0 to 9 do     // буква о   for m: =0 to 9 do     // буква с   for r: =0 to 9 do     // буква у   begin     p: =k*k mod 10;     a: =i*10000+p*1000+r*100+m*10+k;     b: =j*100000+p*10000+n*1000+i*100+n*10+k;     c: =p;     for s: =1 to 10 do c: =c*10+p;     if a*b=c then     begin       writeln('хруст = ',a);       writeln('грохот = ',b);       writeln(' = ',c);     end;     end; end.хруст = 21649 грохот = 513239 = 11111111111