algoritmo "Subtração"
var
contador,n1,n2,divisao:real
inicio
contador<-0
var
contador,n1,n2,divisao:real
inicio
contador<-0
escreva("Digite o divisor. ")
leia(n1)
escreva("Digite o dividendo. ")
leia(n2)
se (n1>n2) entao
divisao<-n1
repita
divisao<-divisao-n2
contador<-contador+1
ate (divisao<N2)
senao
contador<-0
fimse
divisao<-n1
repita
divisao<-divisao-n2
contador<-contador+1
ate (divisao<N2)
senao
contador<-0
fimse
escreval(n1," /",n2," =",contador)
fimalgoritmo
fimalgoritmo
Nenhum comentário:
Postar um comentário