Pascal, ¡el problema es urgente! ! ! ¡Ayúdanos a recuperarlo! ! ¡Maestros! ! ! ¡Espero que se pueda completar antes del Dragon Boat Festival! ! ¡Muchas gracias! ! !

Definir variables

a, b, I, m, n: longint

t: text

Inicio<; /p>

a:= 0;

b:= 0;

readln(metro);

Inicio

readln(n);

Si n mod 2=0 entonces a:=a+n en caso contrario b:= b+n;

p>

Fin;

writeln(b);

writeln(a);

Fin.

2.

Definir variables

Respuesta: Matriz [1..Boolean 10000];

I, j, k, n , m: longint;

f: tipo booleano;

t: texto

Programa oo; >

I, j, k: entero largo;

f: booleano;

Inicio

Para i:=2 a 10000 do

Inicio

f:=false;

for j:= 2 to trunc(sqrt(I)+1)do

si modifico j =0, entonces

Inicio

f:=True;

Interrupción;

Fin;

Si f=false entonces a[I]:= true;

Fin;

Fin;

Inicio

f: = false;

readln(n);

oo;

Para i:=1 to n hacer

Iniciar

Para j:=1 an hacer

si (n-I-j>1) y (a[I]=true) y (a[j]=true) entonces

Si a[n-I-j]=True, entonces comience

writeln(i, ' ', j, '', n-I-j);

f:=True;

Interrumpir;

Fin;

Si f=true, interrumpir;

Fin;

Fin.

3.

Definir variables

Respuesta: El número entero de la matriz [1..100,1..100];

max , I, j, k, n, m: longint;

t: texto

Inicio

readln(m, n

Para i:=1 a m do

Inicio

Para j:=1 a n do

leer(a[i,j ]) ;

readln();

Fin;

Para i:=1 to m do

Inicio

Para j:=1 to n hacer

Iniciar

Leer(k);

Si k=a[i, j] entonces Inc( max) ;

Fin;

readln();

Fin;

writeln(max);

Fin.