-
Lenguaje
Pascal
-
Descripción
Ingrese por teclado un número entero, si dicho número tiene dos cifras mostrará el mensaje "tiene dos cifras" y la potencia de dicho número; caso contrario mostrará el mensaje "no tiene dos cifras" y la mitad de dicho número ingresado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program NumeroDeDosCifras;
uses crt, math;
var numero, resultado : real;
begin
write ('Ingresa el valor de numero: ');
readln (numero);
if (numero<100) and (numero>=10) then
begin
writeln ('tiene dos cifras');
resultado := power(numero,numero);
end
else
begin
writeln ('no tiene dos cifras');
resultado := numero/2;
end;
writeln ('Valor de resultado: ', resultado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var numero, resultado : real;
begin
write ('Ingresa el valor de numero: ');
readln (numero);
if (numero<100) and (numero>=10) then
begin
writeln ('tiene dos cifras');
resultado := power(numero,numero);
end
else
begin
writeln ('no tiene dos cifras');
resultado := numero/2;
end;
writeln ('Valor de resultado: ', resultado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.