Να διαβασθεί ένας ακέραιος αριθμός και να στρογγυλοποιηθεί στα δύο τελευταία ψηφία του. Δηλαδή, αν ο αριθμός είναι ο 15732 να γίνει 15700 και αν είναι ο 15784 να γίνει 15800.Αν ήταν ο 45 να γίνει 0, ενώ αν ήταν ο 70 να γίνει 100.
Το πρόβλημα λύνεται εύκολα με τη χρήση της εντολής ΑΝ , δοκιμάστε να το λύσετε όμως χωρίς την εντολή ΑΝ, μονο με τις εντολές της Δομής Ακολουθίας.
ΛΥΣΗ 1η: ΜΟΝΟ με ΔΟΜΗ ΑΚΟΛΟΥΘΙΑΣ
ΠΡΟΓΡΑΜΜΑ Στρογγυλοποίηση_Ακεραιου
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Α
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε ακεραιο αριθμό'
ΔΙΑΒΑΣΕ Α
Α <-- Α+50
Α <-- Α DIV 100 * 100
ΓΡΑΨΕ 'Στρογγυλοποιημενος αριθμος=',Α
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΛΥΣΗ 2η: και με ΔΟΜΗ ΕΠΙΛΟΓΗΣ
ΠΡΟΓΡΑΜΜΑ Στρογγυλοποίηση_Ακεραιου
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Α,last
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε ακεραιο αριθμό'
ΔΙΑΒΑΣΕ Α
last <-- Α MOD 100
Α <-- Α-last
ΑΝ 50<last ΤΟΤΕ
Α <-- Α+100
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Στρογγυλοποιημενος αριθμος=',Α
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ