-
Lenguaje
Pascal
-
Descripción
Imprime los 5 primeros números enteros positivos y realiza las reglas de negocio que se describen a continuación:
Reglas de negocio
Declare la variable i con valor igual a 1.
Calcule la suma, resta y multiplicación el número ingresado.
Calcule la división de la multiplicación por 3.
Se debe mostrar en pantalla el valor de la variable i, junto con el resultado de los cálculos realizados.
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 SumaRestaMultiplicacionDeLos5PrimerosNumerosEnterosPositivos;
uses crt;
var division, i, multiplicacion, numero_ingresado, resta : integer;
var suma : integer;
begin
for i:=1 to 5 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de numero ingresado: ');
readln (numero_ingresado);
suma := i+numero_ingresado;
resta := i-numero_ingresado;
multiplicacion := i*numero_ingresado;
division := multiplicacion div 3;
writeln ('Valor de division: ', division);
writeln ('Valor de multiplicacion: ', multiplicacion);
writeln ('Valor de resta: ', resta);
writeln ('Valor de suma: ', suma);
writeln;
end;
end.
uses crt;
var division, i, multiplicacion, numero_ingresado, resta : integer;
var suma : integer;
begin
for i:=1 to 5 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de numero ingresado: ');
readln (numero_ingresado);
suma := i+numero_ingresado;
resta := i-numero_ingresado;
multiplicacion := i*numero_ingresado;
division := multiplicacion div 3;
writeln ('Valor de division: ', division);
writeln ('Valor de multiplicacion: ', multiplicacion);
writeln ('Valor de resta: ', resta);
writeln ('Valor de suma: ', suma);
writeln;
end;
end.