20/08 exercico 6 do caderno

Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expresso em segundos e mostre-o expresso em horas, minutos e segundos.

algoritmo "Calcular tempo de trabalho"


var
segundos, minutos, horas, totalSegundos, sobraHoras, sobraMinutos:inteiro

inicio
escreval("Calcular tempo de trabalho")
escreval
escreva("Informe o tempo em Segundos: ")
leia(totalSegundos)
horas <- totalSegundos div 3600
sobraHoras <- totalSegundos - (horas * 3600)
minutos <- sobraHoras div 60
segundos <- sobraHoras - (minutos * 60)
escreva("Tempo de trabalho: ", horas, " hora(s), ", minutos, " minuto(s) e ", segundos, " segundo(s)")

fimalgoritmo