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

program pr; uses crt; var a, x1, x2, x3, x4: integer; beginwriteln('введите 4-х значное число'); readln(a); x1: =a div 1000; x2: =(a mod 1000) div 100; x3: =(a mod 100) div 10; x4: =a mod 10; writeln(x1); writeln(x2); writeln(x3); writeln(x4); readln; end.

Program   array129; var a:   array   [1..40]  of   integer; b:   array   [1..20]  of   integer; c:   array   [1..20]  of   integer; temp,m,n,i,j: integer; begin writeln('введите n (n< =20)'); readln(n); writeln('значения массива а'); for   i: =1  to   n  do  begin   write('a[',i,']='); readln(a[i]); b[i]: =i;   end; // решение  temp: =0; m: =0; // формируем из исходного массива a[] два с длиной серий b[] и значением серий c[]  for   i: =2  to   n  do begin inc(temp); if   a[i]< > a[i-1]  then begin inc(m); b[m]: =temp; c[m]: =a[i-1]; temp: =0; end; end; inc(temp); inc(m); b[m]: =temp; c[m]: =a[i]; // складываем массив a[] согласно .  temp: =1; for   i: =1  to   m  do begin if   b[i]> =b[temp]  then begin temp: =i; end; end; inc(b[temp]); temp: =0; for   i: =1  to   m  do begin for   j: =1  to   b[i]  do begin inc(temp); a[temp]: =c[i]; end; end; writeln; writeln('ответ'); write(' a[]: ');   for   i: =1  to   temp  do   write(a[i],' '); end.

Type   v = array of integer; var   i, n, ic, nc, kc, imax, nmax, kmax: integer;   a: v; begin   write('введите количество чисел n ');   readln(n);   setlength(a, n + 1);   writeln('вводите числа');   for i : = 0 to n - 1 do read(a[i]);   writeln;   nmax : = -32768;   kmax : = 0;   imax : = 0;   nc : = a[0];   kc : = 1;   ic : = 1;   for i : = 1 to n - 1 do   begin       if a[i] = nc then kc : = kc + 1       else begin           if kc < 3 then begin               kc : = 1;               nc : = a[i];               ic : = i           end           else           if kmax < = kc then begin               kmax : = kc;               nmax : = nc;               imax : = ic;               kc: =1;               nc: =a[i];               ic: =i           end           else begin               kc : = 1;               nc : = a[i];               ic : = i           end       end   end;   if kmax < = kc then begin       kmax : = kc;       nmax : = nc;       imax : = ic   end;   writeln('самая длинная серия содержит ', kmax, ' чисел ', nmax);   for i: =n downto imax+kmax+1 do a[i]: =a[i-1];   a[imax+kmax]: =nmax;   writeln('модифицированная строка');   for i: =0 to n do write(a[i]: 2) end. тестовое решение введите количество чисел n 30 вводите числа 1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 3 3 3 3 1 2 3 3 3 самая длинная серия содержит 6 чисел 8 модифицированная строка   1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 8 3 3 3 3 1 2 3 3