-
Lenguaje
Pascal
-
Descripción
Con base en una calificación proporcionada (0-10), indica con letra la calificación que le corresponde: 10 es "A", 9 es "B", 8 es "C", 7 y 6 son "D", y de 5 a 0 son "F".
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program ConvierteUnaCalificacionEnLetra;
uses crt;
var calificacion : integer;
begin
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if calificacion=10 then
begin
writeln ('A');
end;
if calificacion=9 then
begin
writeln ('B');
end;
if calificacion=8 then
begin
writeln ('C');
end;
if (calificacion=7) or (calificacion=6) then
begin
writeln ('D');
end;
if calificacion<=5 then
begin
writeln ('F');
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=10 then
begin
writeln ('A');
end;
if calificacion=9 then
begin
writeln ('B');
end;
if calificacion=8 then
begin
writeln ('C');
end;
if (calificacion=7) or (calificacion=6) then
begin
writeln ('D');
end;
if calificacion<=5 then
begin
writeln ('F');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.