-
Lenguaje
Pascal
-
Descripción
Determinar si una calificación es aprobatoria o no (de 5 para abajo es reprobatorio y de 6 al 10 es aprobatoria).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program CalificacionAprobatoriaDe6;
uses crt;
var calificacion : integer;
begin
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if calificacion<=5 then
begin
writeln ('Calificaci'#162'n reprobatoria');
end;
if (calificacion>=6) and (calificacion<=10) then
begin
writeln ('Calificaci'#162'n aprobatoria');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var calificacion : integer;
begin
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if calificacion<=5 then
begin
writeln ('Calificaci'#162'n reprobatoria');
end;
if (calificacion>=6) and (calificacion<=10) then
begin
writeln ('Calificaci'#162'n aprobatoria');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.