jghj

1

Program sexomf ; var sexo:char;
Begin
repeat Writeln ('Digiteo o sexo; M ou F:'); readln (sexo); sexo:= upcase(sexo); case sexo of 'F': WriteLn( 'Feminino' ); 'M': WriteLn( 'Masculino' ); else writeln ('sexo invalido'); end ; writeln('Para sair digite s'); readln (sexo); sexo:= upcase(sexo); until sexo = 'S'; End.

2

Program DiadaSemana ; var semana:char; Begin repeat writeln ('Digite o dia do mês e verá o dia da semana:'); readln (semana); case semana of '1': writeln ('Domingo'); '2': writeln ('Segunda'); '3': writeln ('Terça'); '4': writeln ('Quarta'); '5': writeln ('Quinta'); '6': writeln ('Sexta'); '7': writeln ('Sabado'); else writeln ('Dia digitado não esperado digite um numero de 1 a 7 '); end ; writeln('Para sair digite "s"'); readln (semana); semana:= upcase(semana); until semana = 'S';

End.

3

Program Salarioreal ; var salario,Ssalario,percentual,aumeto:real; Begin Writeln ('digite o salario'); readln (salario); if salario < 280 then begin percentual:= 0.20; aumeto:=salario*percentual; Ssalario:=salario+aumeto end else if salario < 700 then begin percentual:= 0.15; aumeto:=salario*percentual ; Ssalario:=salario+aumeto end else if salario < 1500 then begin percentual:= 0.10; aumeto:=salario*percentual; Ssalario:=salario+aumeto end else begin percentual:= 0.05; aumeto:=salario*percentual; Ssalario:=salario+aumeto; end;

writeln(' O salário antes: ',salario:2:2) ;

writeln(' O percentual de aumento: ',percentual:2:2,'%') ;