fork download
copy 
  1. program SALARIO;
  2. var
  3. HT, VH, PD, TD, SB, SL : real;
  4. begin
  5. writeln('Quantas horas de trabalho? ');
  6. readln(HT);
  7. writeln('Qual o valor da hora? ');
  8. readln(VH);
  9. writeln('Qual o percentual de desconto? ');
  10. readln(PD);
  11. SB := HT * VH;
  12. TD := (PD/100) * SB;
  13. SL := SB - TD;
  14. writeln('Salário Bruto ...: ', SB:7:2);
  15. writeln('Desconto.........: ', TD:7:2);
  16. writeln('Salário Liquido..: ', SL:7:2);
  17. end.
  18.  
Runtime error #stdin #stdout 0.02s 4112KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Quantas horas de trabalho?
https://ideone.com/uR5Ba
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!