• Lenguaje

    Pascal

  • Descripción

    La asignación familiar por hijo de un trabajador es la siguiente:
    - Si no tiene hijos no le corresponde asignación familiar.
    - Si tiene un hijo le corresponde $50.
    - Si tiene dos hijos le corresponde $75 por sus dos hijos.
    - Y si tiene más de dos hijos le corresponde $100.
    Ingresar el número de hijos y reportar la asignación familiar.

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
program AsignacionFamiliarPorHijo;
uses crt;

var asignacion_familiar, numero_de_hijos : integer;
begin
    write ('Ingresa el valor de numero de hijos: ');
    readln (numero_de_hijos);
    asignacion_familiar := 0;
    if numero_de_hijos=1 then
        begin
            asignacion_familiar := 50;
        end;
    if numero_de_hijos=2 then
        begin
            asignacion_familiar := 75;
        end;
    if numero_de_hijos>2 then
        begin
            asignacion_familiar := 100;
        end;
    writeln ('Valor de asignacion familiar: ', asignacion_familiar);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.