logica de progamaçao

Program SALARIO;
VAR HT,VH,PD,SB,SL,TB,R:REAL;
 Begin
 WRITELN('INFORME O NUMERO DE HORAS DE TRABALHO MENSAIS');
 READLN(HT);
 WRITELN('INFORME O VALOR DA HORA TRABALHADA');
 READLN(VH);
 WRITELN('ENTRE COM O DESCONTO');
 READLN(PD);
 SB:=(HT*VH);
 WRITELN('SEU SALARIO BRUTO É ', SB);
 end

0 comentários:

Postar um comentário

  • Welcome Message

Adsense Banner