• Lenguaje

    Pascal

  • Descripción

    Pida el nombre de un usuario y código de seguro y salud y muestre lo siguiente:
    a) Si el código de seguro es 20 o 21 muestre día "Cita Lunes".
    b) Si el código de seguro es 22 o 23 muestre día "Cita Martes".
    c) Si el código de seguro es 24 o 25 muestre día "Cita Miércoles".
    d) Si el código de seguro es 26 o 27 muestre día "Cita Jueves".
    e) Si el código de seguro es 28 o 29 muestre día "Cita Viernes".
    f) Si es un numero diferente a los mencionados debe mostrar "Código no válido".

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
33
34
35
36
37
38
39
program CitaPorCodigoDeSeguro;
uses crt;

var codigo_de_seguro : integer;
var nombre_de_usuario : string;
begin
    write ('Ingresa el nombre de usuario: ');
    readln (nombre_de_usuario);
    write ('Ingresa el valor de codigo de seguro: ');
    readln (codigo_de_seguro);
    if (codigo_de_seguro=20) or (codigo_de_seguro=21) then
        begin
            writeln ('Cita Lunes');
        end;
    if (codigo_de_seguro=22) or (codigo_de_seguro=23) then
        begin
            writeln ('Cita Martes');
        end;
    if (codigo_de_seguro=24) or (codigo_de_seguro=25) then
        begin
            writeln ('Cita Mi'#130'rcoles');
        end;
    if (codigo_de_seguro=26) or (codigo_de_seguro=27) then
        begin
            writeln ('Cita Jueves');
        end;
    if (codigo_de_seguro=28) or (codigo_de_seguro=29) then
        begin
            writeln ('Cita Viernes');
        end;
    if (codigo_de_seguro<20) or (codigo_de_seguro>29) then
        begin
            writeln ('C'#162'digo no v'#160'lido');
        end;
    writeln ('Nombre de usuario: ', nombre_de_usuario);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.