cls
l1$="Dans l'oasis il y a des chameaux et des dromadaires en train de se désaltérer. Ali qui n'a rien à faire et s'ennuie, compte 168 pattes et 69 bosses."
l2$="Combien y-a-t-il de chameaux ?"
print l1$
print l2$
print "--------------------------------------------"
nb=168/4
n1=69-nb
nd=nb-n1
verif=(n1*2)+nd
print"Solution par l'absurde."
print "--------------------------------------------"
print "Il y a en tout (168 : 4 ) "+nb+" animaux."

print"S'il n'y avait que des dromadaires, il y aurait "+nb+" bosses."
print"Il y a une différence de (69 - "+nb+") soit  "+n1+"."
print"Si on remplace dans cette différence 1 bosse par (2-1) bosses, <BR>on obtient le nombre de chameaux ("+n1+" :1) soit "+n1+" chameaux."
print"Le nombre de dromadaires est ("+nb+" - "+n1+") soit "+nd+" "
print"Vérification : (("+n1+" x 2 )+ "+nd+") =  "+verif+""
print "--------------------------------------------"
nb=168/4
print "Solution informatique."
print "voir le code source"
print "--------------------------------------------"
i=nb
x=nb
while(i>0)

x=x-1
dr=x*1
ch=42-dr
ch2=ch*2
t=(dr+ch2)
if (t=69) then
print dr+" bosses de dromadaires  + "+ch2+" bosses de chameaux  = "+t+" bosses."
print "Il y a donc "+dr+" dromadaires et ("+ch2+" : 2) "+ch+" chameaux."
end if
i--
end while