Pago en un peaje en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

En un peaje los carros con peso inferior o igual a 4 toneladas pagan $3,500 y los otros carros pagan $5,200. Determinar cuántos carros de cada categoría pasaron por el peaje y cuanto fue el total recaudado si en total pasaron 75 carros.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Proceso PagoEnUnPeaje

    inferiores <- 0;

    superiores <- 0;

    total_recaudado <- 0;

    Para i<-1 Hasta 75 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de toneladas:";

        Leer toneladas;

        Si toneladas<=4 Entonces

            pago <- 3500;

            inferiores <- inferiores+1;

        SiNo

            pago <- 5200;

            superiores <- superiores+1;

        FinSi

        total_recaudado <- total_recaudado+pago;

        Escribir "Valor de pago: ", pago;

        Escribir "";

    FinPara

    Escribir "Valor de inferiores: ", inferiores;

    Escribir "Valor de superiores: ", superiores;

    Escribir "Valor de total recaudado: ", total_recaudado;

FinProceso