• 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
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.