Advertisement
Thiagoccaufes

exercicio 7

Sep 15th, 2014
261
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.43 KB | None | 0 0
  1. {*Elabore um algoritimo que leia o valor do slario minimo e o valor do salario
  2. de uma pessoa.Calcule quantos salarios minimos essa pessoa ganha*}
  3. program salariominimo;
  4. var salario:real;
  5. const
  6.     salariominimo = 724;
  7. begin
  8.     {*Entrada*}
  9.     writeln('Digite o salario');
  10.     readln(salario);
  11.     {*Processamento*}
  12.     writeln('Fulano recebe ',salario/salariominimo:2:2 , ' salarios minimos');
  13.     {*pause*}
  14.     readln();
  15.  
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement