Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Algoritmia » Ayuda con estos dos ejercicios de Pseint por favor

Algoritmia - Ayuda con estos dos ejercicios de Pseint por favor

Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda con estos dos ejercicios de Pseint por favor

Publicado por VZ (1 intervención) el 06/06/2016 21:01:03
Buenas, necesito ayuda urgente con estos dos ejercicios de Pseint, me podéis ayudar?

1. Diseñar un algoritmo que al introducir un numero de 3 cifras, es decir del 000 al 999, calcule la suma de las 3 cifras en caso de ser par y en caso de ser impar nos calcule el producto de las 3


2. Se ha establecido un programa para estimular a los alumnos el cual consiste en lo siguiente: si el promedio global obtenido por un alumno en el ultimo periodo es mayor o igual a 4 se hará descuento del 30% sobre la matricula y o se le cobrará IVA. Si el promedio obtenido es menor a 4 deberá pagar la matricula completa que debe incluir el 10% de IVA. Hacer un algoritmo que calcule el valor a pagar si se conocen las notas finales de las 6 materias que cursaron. El programa nos pedirá el valor real de la matricula y la media del ultimo año cursado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 303
Oro
Ha mantenido su posición en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

Ayuda con estos dos ejercicios de Pseint por favor

Publicado por dario (18 intervenciones) el 07/06/2016 16:22:49
Ejercicio Nro 1 hecho en pascal

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
31
32
uses crt;
var
    a,n1,n,s:integer;
begin
    clrscr;
    write('Ingrese un numero de 3 cifras: ');
    readln(n);
    a:=n;
    if a mod 2 =0 then
    begin
         s:=0;
        while n>=1 do
        begin
            n1:=n mod 10;
            n:=n div 10;
            s:=s+n1;
        end;
        writeln('El resultado de la suma es ',s);
    end
    else
    begin
         s:=1;
        while n>=1 do
        begin
            n1:=n mod 10;
            n:=n div 10;
            s:=s*n1;
        end;
        writeln('El producto es ',s);
    end;
    readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda con estos dos ejercicios de Pseint por favor

Publicado por Marco Amancha (2 intervenciones) el 23/06/2016 18:06:14
el primer ejercicio es el el de la imagen de abajo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda con estos dos ejercicios de Pseint por favor

Publicado por marco (2 intervenciones) el 23/06/2016 18:17:12
el primer ejercicio en pseint:


ejercicio-pseint
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar