Atividade
Faça um algoritmo que leia a idade e o estado civil de N pessoas (O algoritmo deve parar quando for informada uma idade negativa). Informe:
a) quantas pessoas acima de 50 anos estão casadas;
b) quantas pessoas abaixo de 40 anos estão solteiras.
Resposta
program estatistica;
var idade,casada50,solteira40,N: integer;
estadoCivil: string;
begin
while idade>=0 do
begin
write('Digite a idade: '); readln(idade);
write('Digite o estado civil: ');
readln(estadoCivil);
if (idade>50)and(estadoCivil='casado') then
casada50 := casada50+1;
if (idade>=0)and(idade<40)and(estadoCivil='solteiro') then
solteira40 := solteira40+1;
if idade>=0 then N:=N+1;
end;
writeln('Foram digitadas ',N,' pessoas');
writeln('qtde casada acima de 50 anos: ',casada50);
writeln('qtde solteira abaixo de 40 anos: ',solteira40);
end.
Laboratório de Robótica Inclusiva 
Um comentário em “Estatística”