-
Lenguaje
Pascal
-
Descripción
Realice un algoritmo que, con base en una calificación proporcionada (0-10), indique 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
32
33
34
35
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
32
33
34
35
program CalificacionEnLetra;
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 then
begin
writeln ('D');
end;
if calificacion=6 then
begin
writeln ('E');
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 then
begin
writeln ('D');
end;
if calificacion=6 then
begin
writeln ('E');
end;
if calificacion<=5 then
begin
writeln ('F');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.