-
Lenguaje
Pascal
-
Descripción
Calificar una nota, considerando que si la nota es menor a 39 es reprobado, entre 40 y 69 suspenso, mayor e igual a 70 aprobado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program CalificarUnaNota;
uses crt;
var nota : integer;
begin
write ('Ingresa el valor de nota: ');
readln (nota);
if nota<40 then
begin
writeln ('Reprobado');
end;
if (nota>=40) and (nota<70) then
begin
writeln ('Suspenso');
end;
if nota>=70 then
begin
writeln ('Aprobado');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var nota : integer;
begin
write ('Ingresa el valor de nota: ');
readln (nota);
if nota<40 then
begin
writeln ('Reprobado');
end;
if (nota>=40) and (nota<70) then
begin
writeln ('Suspenso');
end;
if nota>=70 then
begin
writeln ('Aprobado');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.