El maestro del lenguaje Pascal está aquí

end;

2.var i,N:integer; fd:boolean;

A: matriz de enteros [1.. .100];

B: Matriz de enteros [0...9,0.9] de entero;

Comenzar fillchar(B,sizeof(B),0);{matriz B valor inicial establecido en 0} write('N=');readln(N);

si (N>1)y(N<=100) entonces

comience a escribir( 'Ingrese ',N,' números: ');

para i:=1 a N haga

comience a leer(A[i]);

si (A[i]<0) o (A[i]>9) entonces {A[i] tiene un valor entre 0 y 9}

start writeln(' Error de entrada ');halt;end;

end;

for i:=1 to N-1 do

B[A[i], A[i+1]]:=B[A[i],A[i+1]]+1; {agregue 1 a los pares de dígitos adyacentes de valores BA[i],A[i+1]}

fd:=true;writeln('Resultado:');

for i：=1 a N-1 hacer

if (B[A[i], A[i+1]]>0) y(B[A[i+1],A[i]]>0) luego

comience a escribir('( '( ,A[i], ',',A[i+1],')=',B[A[i],A[i+1]],' ');

Si A[i+1]= A[i] luego escribe eln {los dígitos adyacentes son iguales, como g.,(2, 2)}

else writeln('(',A[i+1],',', A[ i],')= ',B[A[i+1],A[i]]);

B[A[i+1],A[i]]:=0 ;

fd:=false;

end;

si fd entonces writeln('¡No encontrado! ');

end

else writeln('¡Error de entrada N!');

end.

4.{$I -}

Programa jj;

var N,k:integer;

B:array[1.1000] de entero;

Programa chg10(N,x:integer); {Convertir el número decimal N en x número de dígitos}

Iniciar k:=0 {La longitud del x número de dígitos convertidos}

mientras N<>0 haz {cuando N no es 0}

comienza B[k]：=N mod x {divide por x para obtener el resto}

N :=N Div x; {Tomar el cociente máximo N}

k:

=k+1; {Suma 1 al lugar decimal de x}

end;

end;{chg10}

7.var

p:array[1...100] de entero; {factor primario}

s:array[1...100] de entero; {índice correspondiente a p[i]}

i,j,n,pnum:integer;

{n es el factor requerido, n=(p[1]^s[1])*(p[2]^ s [2])...*(p[pnum]^s[pnum])}

Procedimiento YSFJ(x:integer);

var i:integer;

comenzar

pnum:=0;

i:=2;

mientras ( (x>1) y (i*i< = x) ) hacer

comenzar

si x mod i = 0 entonces {cuando i es un factor de x}

comenzar

inc(pnum); {encontrar un nuevo factor primo i}

p[pnum]：=i;

s[pnum]:=0;

while ( x mod i = 0 ) do

comenzar

inc(s[pnum]); {calcular el exponente de i}

x: = x div i;

end;

end; {En este momento, x ya no contiene factores menores que I}

inc(i);

end;

si (x>1) entonces {demuestra que x es un número primo}

comienza

inc(pnum); {encontrar el nuevo valor de x factorización prima}

p[pnum]:=x;

s[pnum]:=1

end; /p>

fin;

comienzo

readln(n);

YSFJ(n);

{Aquí está el resultado de salida}

write(n,' = ',p[1]);

dec(s[1]);

para i: =para j:=1 a s[i] hacer

escribir(' * ',p[i]);

escribirln;

fin.