km para ms visual g inicio

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo "Km/h para M/s"
Var
vkmh, vms: real
inicio
Escreva ("Informe a velocidade do veiculo em Km/h: ")
Leia (vkmh)
vms <- (vkmh * 1.000) / (3.6)
Escreval (vkmh, " Km/h equivale a ", vms, " m/s")
Escreval ("Muito obrigado e volte sempre!!")
Fimalgoritmo