Informatica

Primer tarea hacer lo programas del correo en pascal
segunda tarea : desarrollar un programa que simule un examen donde estara estipulado un grupo de 10 preguntas de verdadero y falso, otro grupode seleccion multiple de 10 preguntas.

Se quiere que al llenar de finalizar el examen se despliegue las preguntas malas y las preguntas buenas , como el total de cada una de ella cuantas malas ycuantas buenas al finalizar de desplegar dichos totales el programa debe solicitarle al usuario si desea volver a evaluarse.

Otra; desarrolle un arreglo que permita ingresar diez edades al finalizarde ingresar las diez edades debe desplegar un lista de las edades mayor o igual que 40

nota enviar dos dias antes de la segunda visita

enviar a este correo alexirr@gmail.com

Clase deprogramacion I primera visita Alexis Ramos Primera visita

program opebasi;
uses wincrt;
var
pn,sn,sum,res:integer;
divi,multi:real;
begin
clrscr;
writel('Introduzca un numero');
readln(pn);writeln('Introduzca otro numer0');
readln(sn);
sum:= pn+sn;
rest:= pn+sn;
divi:= pn+sn;
multi:= pn+sn;
writeln('La suma es: ', sum);
writeln('La resta es: ', rest:4);
writeln('Ladivision es: ', divi);
readln();
end.

Program opera;
uses wincrt;
var
n1,n2,r,opcion:integer;
begin
clrscr;
writeln( 'ingrese primer numero')
readln(n1);
writeln'ingrese segundonumero);
readln(n2);
writeln'ingrese primer numero');
readln(n1);
writeln('1. Suma 2. Resta 3. Multipilacion 4. division');
readln(opcion);
case opcion of;
1:r:=n1+n2;
2:r:=n1-n2;3:r:=n1*n2
4:r:=n1/n2;
end;
writeln(r:4:2);
end.

Program opera;
uses wincrt;
var
n1,n2,r,opcion:integer;
resp:char;
begin
resp:='s'
while resp='s' or resp='S' do

clrscr;
writeln('ingrese primer numero')
readln(n1);
writeln'ingrese segundo numero);
readln(n2);
writeln'ingrese primer numero');
readln(n1);
writeln('1. Suma 2. Resta 3. Multipilacion 4. division');...