algoritmo "Cartas"
var
rs,pe,ps,ce:real
qs,qe,qer,qce,qca,qsa,qea:inteiro
inicio
leia (rs,pe,ps,qs,qe)
ce <- pe+ps
se (qe > qs) entao
qer <- qe - qs
se (qer*ps) <= rs)
qce <- qs
qca <- rs div ce
qce <- qce + qca
senao
qsa <- rs div ps
qce <- qs + qsa
fimse
senao
se (qs>qe) entao
qer <- qs - qe
se ((qer*pe) < = rs) entao
rs <- rs - (qer*pe)
qce <- qe
qca <- rs div ce
qce <- qce + qca
senao
qea <- rs div pe
qce <- qe + qea
fimse
senao
qce <- qs
qca <- rs div ce
qce <- qce <- qca
fimse
fimse
escreva (" A quantidade de cartas enviadas eh", qce)
fimalgoritmo
Nenhum comentário:
Postar um comentário