-
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
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.
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.