Introdução a programação

TRABALHO

GRUPO

MATRÍCULA
ALUNO

Program TARBALHO_EX1 ;
//Ler o nome, sexo e idade de 20 pessoas.
//Consistir as entradas no sentido de aceitar apenas "F" ou "M" para o
//sexo e valores positivos para a idade.
//Exibir os dados (nome, sexo e idade) de todas as pessoas e a quantidade //de homens e mulheres.

var nome : string; sexo: char; idade,qtd,somaF,somaM:integer; Begin for qtd := 1 to 20 do begin writeln('Informe seu nome'); readln(nome); writeln('informe seu sexo F | M'); readln(sexo); writeln('informe sua idade'); readln(idade); if(idade < 0) or (idade = 0) then begin writeln('Erro...Idade'); Break; end; if(sexo 'f') and (sexo 'm')and (sexo 'F') and (sexo 'M') then begin writeln('Erro... sexo indefinido'); break; end; if(sexo = 'f') or (sexo = 'F')then begin somaF := somaF +1; end; if(sexo = 'm') or (sexo = 'M')then begin somaM := somaM +1; end; writeln('seu nome é : ',nome,' vc tem : ',idade,' anos ','vc é ',sexo); end; writeln('TOTAL DE GERAL : ',qtd); writeln('TOTAL DE MULHERES : ',somaF); writeln('TOTAL DE HOMENS : ',somaM ); End.

Program TARBALHO_EX2 ;
//Faça um programa para verificar se um ano é bissexto ou não. Utilize a //regra:
//Um ano bissexto é divisível por 4, mas não por 100, ou então se é //divisível por 400.
//Exemplo: 1988 é bissexto pois é divisível por 4 e não é por 100; 2000 //é bissexto porque é divisível por 400. var ano: integer; Begin writeln('Informe o ano para analise'); readln(ano); if(ano mod 4 = 0) and (ano mod 100 0 ) then begin writeln('O ano de ',ano,' é bissexto.'); end else begin writeln('O ano de