',soma); End.Exercicio 2Program Pzim ; var numero: integer; //numero de registro do funcionario atual meses: integer; //meses trabalhados do funcionario atual numero_recente: integer; //numero do funcionario mais recente numero_antigo: integer; //numero do funcionario mais antigo meses_recente: integer; //meses trabalhados do funcionario mais recente meses_antigo: integer; //meses trabalhados do funcionario mais antigo Begin numero_recente := 0; numero_antigo := 0; meses_antigo := 20000; meses_recente := 0; write ('Digite o numero do funcionario: '); read (numero); write ('digite o numero de meses trabalhados: '); read (meses); while ((numero <> 0) and (meses <> 0 )) do begin if (meses > meses_recente) then //verificando se o funcionario e o mais novo na empresa begin meses_recente := meses; numero_recente := numero; end; if (meses < meses_antigo) then //verificando se o funcionario e o mais antigo na empresa begin meses_antigo := meses; numero_antigo := numero; end; //Limpando a tela e solicitando novamente os dados e mostrando para o usuario qual a condicao de parada clrscr; writeln ('Para sair, digite "0" para o numero de funcionario e meses trabalhados'); write ('Digite o numero do funcionario: '); read (numero); write ('Digite o numero de meses trabalhados: '); read (meses); end; writeln ('O funcionario ',numero_recente,' e o mais novo na empresa, trabalhando a ',meses_recente,' meses.'); writeln ('O funcionario ',numero_antigo,' e o mais antigo na empresa, trabalhando a ',meses_antigo,' meses.'); End.Exercicio 3Program Pzim ; var sexo, sexo_alta: char; altura, menor_altura, maior_altura, soma_altura_mulheres, media_altura_mulheres: real; homens, mulheres, cont: integer; Begin maior_altura := 0; menor_altura := 500; soma_altura_mulheres := 0; mulheres := 0; while (cont<15) do begin write ('digite o sexo da pessoa: '); readln (sexo); write ('Digite a altura da pessoa em centimetros: '); readln (altura); if (altura < menor_altura) then begin menor_altura := altura; end; if (altura > maior_altura) then begin sexo_alta := sexo; end; if (sexo = 'f') or (sexo = 'F') then begin soma_altura_mulheres := soma_altura_mulheres + altura; mulheres := mulheres + 1; end; cont := cont + 1; end; media_altura_mulheres := soma_altura_mulheres / mulheres; homens := cont - mulheres; writeln ('A menor altura do grupo e: ',menor_altura); writeln ('A media de altura das mulheres e: ',media_altura_mulheres); writeln ('A quantidade de homens e: ',homens); writeln ('A pessoa mais alta entrevistada e do sexo ',sexo_alta); End.Exercicio 4Program Pzim ; var salario, filhos, media_salario, media_filhos, total_salario, maior_salario: real; quantidade_250, total_familias, total_filhos, perc_250: real; continua : char; Begin media_salario := 0; media_filhos := 0; maior_salario := 0; Quantidade_250 := 0; total_familias := 0; writeln ('digite a quantidade de filhos'); read (filhos); writeln ('digite o salario da familia'); read (salario); while (salario > 0) do begin total_salario := total_salario + salario; total_filhos := total_filhos + filhos; total_familias := total_familias + 1; if (salario > maior_salario) then begin maior_salario := salario; end; if (salario <= 250) then begin quantidade_250 := quantidade_250 + 1; end; clrscr; //Limpa a tela para uma nova digitacao writeln ('Para sair digite a quantidade de filhos e o salario com o valor 0'); writeln ('digite a quantidade de filhos'); read (filhos); writeln ('digite o salario da familia'); read (salario); end; clrscr; media_salario := total_salario / total_familias; media_filhos := total_filhos / total_familias;