-
Lenguaje
Pascal
-
Descripción
Los alumnos de una escuela desean realizar un viaje de estudios, pero requieren determinar cuanto les costará el pasaje, considerando que las tarifas del autobús son las siguientes: si son más de 100 alumnos, el costo es de $30; si son menos de 100 alumnos, 50$ por cada uno. Determinar el costo del pasaje de cada alumno.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program PasajeDeUnViajeDeEstudios2;
uses crt;
var costo_del_pasaje, numero_de_alumnos : integer;
begin
write ('Ingresa el valor de numero de alumnos: ');
readln (numero_de_alumnos);
if numero_de_alumnos>100 then
begin
costo_del_pasaje := 30;
end
else
begin
costo_del_pasaje := 50;
end;
writeln ('Valor de costo del pasaje: ', costo_del_pasaje);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_del_pasaje, numero_de_alumnos : integer;
begin
write ('Ingresa el valor de numero de alumnos: ');
readln (numero_de_alumnos);
if numero_de_alumnos>100 then
begin
costo_del_pasaje := 30;
end
else
begin
costo_del_pasaje := 50;
end;
writeln ('Valor de costo del pasaje: ', costo_del_pasaje);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.