-
Lenguaje
Pascal
-
Descripción
Solicite el ingreso de la temperatura en C°, y nos informe, si está por encima de los 100 grados, que nos muestre un mensaje "Arriba del punto de ebullición del agua", de lo contrario "Debajo del punto de embullición del agua".
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 PuntoDeEbullicion;
uses crt;
var temperatura : real;
begin
write ('Ingresa el valor de temperatura: ');
readln (temperatura);
if temperatura>100 then
begin
writeln ('Arriba del punto de ebullici'#162'n del agua');
end
else
begin
writeln ('Debajo del punto de embullici'#162'n del agua');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var temperatura : real;
begin
write ('Ingresa el valor de temperatura: ');
readln (temperatura);
if temperatura>100 then
begin
writeln ('Arriba del punto de ebullici'#162'n del agua');
end
else
begin
writeln ('Debajo del punto de embullici'#162'n del agua');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.