-
Lenguaje
Pascal
-
Descripción
Permita ingresar dos notas sobre 20 y determine su promedio, debe mostrar un comentario:
a. Aprobado si la nota está entre 14 y 20.
b. Reprobado si es menor a 14.
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 NotasSobre20;
uses crt;
var nota_1, nota_2, promedio : real;
begin
write ('Ingresa el valor de nota 1: ');
readln (nota_1);
write ('Ingresa el valor de nota 2: ');
readln (nota_2);
promedio := (nota_1+nota_2)/2;
if (promedio>=14) and (promedio<=20) then
begin
writeln ('Aprobado');
end;
if promedio<14 then
begin
writeln ('Reprobado');
end;
writeln ('Valor de promedio: ', promedio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var nota_1, nota_2, promedio : real;
begin
write ('Ingresa el valor de nota 1: ');
readln (nota_1);
write ('Ingresa el valor de nota 2: ');
readln (nota_2);
promedio := (nota_1+nota_2)/2;
if (promedio>=14) and (promedio<=20) then
begin
writeln ('Aprobado');
end;
if promedio<14 then
begin
writeln ('Reprobado');
end;
writeln ('Valor de promedio: ', promedio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.