All pastes #926964 Raw Edit

iesp visualag

public text v1 · immutable
·published 2008-03-03 22:47 UTC
rendered paste body
algoritmo "semnome"
// Função :
// Autor :
// Data : 3/3/2008
// Seção de Declarações 
var
      VALOR, minutos, segundos, segundos_sob, minutos_sob, horas : inteiro
inicio
      escreva("Digite o valor em segundos:")
      leia(VALOR)
      minutos <- (VALOR DIV 60)
      segundos_sob <- ((VALOR MOD 60) MOD 60)
      horas <- (minutos DIV 60)
      minutos_sob <- (minutos MOD 60)
      escreva(horas)
      escreva(minutos_sob)
      escreva(segundos_sob)
// Seção de Comandos
fimalgoritmo