!Σε διάστημα δυο ακέραιων αριθμών να υπολογίσετε το πλήθος των ζυγών και το άθροισμά τους
!Προσοχή << Χωρίς ανακύκλωση >>
!ΓΙΩΡΓΟΣ ΚΑΡΡΑΣ **the Bugman**
ΠΡΟΓΡΑΜΜΑ ΖΥΓΟΙ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: κ, λ
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΠΡΩΤΟ ΑΚΕΡΑΙΟ'
ΔΙΑΒΑΣΕ Κ
ΓΡΑΨΕ 'ΔΩΣΕ ΔΕΥΤΕΡΟ ΑΚΕΡΑΙΟ'
ΔΙΑΒΑΣΕ Λ
! ΒΑΖΟΥΜΕ ΣΕ ΤΑΞΗ ΤΟΥΣ ΑΚΕΡΑΙΟΥΣ
ΑΝ Κ>Λ ΤΟΤΕ
ΚΑΛΕΣΕ ΑΛΛΑΓΗ(Κ,Λ)
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'ΜΕΤΑΞΥ ',Κ,' ΚΑΙ ',Λ
!ΕΔΩ ΞΕΚΙΝΑΕΙ ΤΟ ΜΥΣΤΙΚΟ ΚΟΛΠΟ!
ΑΝ ΖΥΓΟΣ(Κ) ΤΟΤΕ
Κ <-- Κ-1
ΤΕΛΟΣ_ΑΝ
ΑΝ ΖΥΓΟΣ(Λ) ΤΟΤΕ
Λ <-- Λ+1
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'ΥΠΑΡΧΟΥΝ ',(Λ-Κ) DIV 2,' ΖΥΓΟΙ'
ΓΡΑΨΕ 'ΠΟΥ ΕΧΟΥΝ ΑΘΡΟΙΣΜΑ ',(Λ*Λ-Κ*Κ) DIV 4
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΖΥΓΟΣ(α): ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: α
ΑΡΧΗ
ΑΝ α MOD 2 = 0 ΤΟΤΕ
ΖΥΓΟΣ <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
ΖΥΓΟΣ <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΑΛΛΑΓΗ(α, β)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: α,β,γ
ΑΡΧΗ
γ <-- α
α <-- β
β <-- γ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ