• Lenguaje

    Pascal

  • Descripción

    Un vendedor a realizado N ventas y desea saber cuántas fueron superiores a $800.000 pero menores que un millón y cuántas fueron iguales o superiores a un millon.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program NVentas;
uses crt;

var i, n, superiores_a_1000000, superiores_a_800000 : integer;
var venta : real;
begin
    superiores_a_1000000 := 0;
    superiores_a_800000 := 0;
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de venta: ');
        readln (venta);
        if (venta>800000) and (venta<1000000) then
            begin
                superiores_a_800000 := superiores_a_800000+1;
            end;
        if venta>=1000000 then
            begin
                superiores_a_1000000 := superiores_a_1000000+1;
            end;
        writeln;
    end;
    writeln ('Valor de superiores a 1000000: ', superiores_a_1000000);
    writeln ('Valor de superiores a 800000: ', superiores_a_800000);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.