Algunas preguntas simples sobre PASCAL (puede obtener puntos extra en línea)

Pregunta 1

programa de trabajo1;

var

s: cadena

c: char

b: booleano;

l, i: entero;

comenzar

s:=''; >leer(c);

mientras clt;gt;'.' comenzar

s：=s

l; :=l 1;

leer(c);

fin;

b:=verdadero

para i:= 1; a l div 2

comenzar

if s[i]lt;gt;s[l-i 1] entonces b：=false

break; /p>

fin;

si b entonces escribe('Sí') else escribe('No');

fin

No. Pregunta 2

programa de trabajo2;

var

a: matriz [1..3]de char;

procedimiento init;

comenzar

leer(a[1], a[2], a[3]);

finalizar

comprobación del procedimiento; ;

var

i: matriz[1..3]de bytes;

x, y: entero;

comenzar

i[1]：=ord(a[1]);

i[2]：=ord(a[2]); 3]:=ord(a[3]);

para x:=1 a 3 hacer

para y:=1 a 3 hacer

si abs(i[x]-i[y])=1 luego

comenzar

escribir('Sí');

detener;

fin;

writeln('No');

fin;

comienzo

init;

chck;

end.

Pregunta 3

programa de trabajo3;

var a, b, c, t: real ;

comenzar

readln(a, b, c

si agt; b entonces

comenzar

a:=b;

b:=t;

fin;

si agt; luego

comenzar

t:=a;

a:=c;

c:=t;

fin;

si bgt;c entonces

comenzar

t:=b;

b:=c;

c：=t;

fin;

writeln(a, b, c)

fin.

programa de trabajo5;

var

x, i: en

teger;

comenzar

x：=1;

para i：=4 ​​​​hasta 1 hacer x：=(x 1)*2; /p >

writeln(x);

fin;