-
Lenguaje
Pascal
-
Descripción
Una escuela aplica dos exámenes a sus aspirantes, por lo que cada uno de ellos obtiene dos calificaciones denotadas como C1 y C2. El aspirante que obtenga calificaciones mayores de 80 en ambos exámenes es "Aceptado" en caso contrario "Rechazado".
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program CalificacionesDenotadasComoC1YC2;
uses crt;
var calificacion_de_C1, calificacion_de_C2 : real;
begin
write ('Ingresa el valor de calificacion de C1: ');
readln (calificacion_de_C1);
write ('Ingresa el valor de calificacion de C2: ');
readln (calificacion_de_C2);
if (calificacion_de_C1>80) and (calificacion_de_C2>80) then
begin
writeln ('Aceptado');
end
else
begin
writeln ('Rechazado');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var calificacion_de_C1, calificacion_de_C2 : real;
begin
write ('Ingresa el valor de calificacion de C1: ');
readln (calificacion_de_C1);
write ('Ingresa el valor de calificacion de C2: ');
readln (calificacion_de_C2);
if (calificacion_de_C1>80) and (calificacion_de_C2>80) then
begin
writeln ('Aceptado');
end
else
begin
writeln ('Rechazado');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.