! Αυτό το πρόγραμμα ελέγχει για ποια ν από το αρχικό που δίνει ο χρήστης μέχρι το 10000 ισχύει ότι
! ν^4 + ν^3 + ν^2 + ν + 1 είναι τέλειο τετράγωνο και γράφει αυτά τα ν σε αρχείο ΤΧΤ
ΠΡΟΓΡΑΜΜΑ ΤΕΣΤ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: ν, μ
ΑΡΧΕΙΑ ΠΡΑΓΜΑΤΙΚΩΝ: τιμες
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε ν'
ΔΙΑΒΑΣΕ ν
μ <-- Τ_Ρ( ν^4 + ν^3 + ν^2 + ν + 1 )
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Α_Μ(μ) = μ ΤΟΤΕ
ΓΡΑΨΕ 'ΝΑΙ!, για ν=', ν
ΣΥΣΧΕΤΙΣΕ_ΑΡΧΕΙΟ τιμες, 'C:\times.txt'
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ τιμες
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ τιμες, 3
ΓΡΑΨΕ_ΑΡΧΕΙΟ τιμες, ν
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ τιμες
ΑΛΛΙΩΣ_ΑΝ Α_Μ(μ) <> μ ΤΟΤΕ
ΓΡΑΨΕ 'οχι, για ν=', ν
ΤΕΛΟΣ_ΑΝ
ν<-- ν+1
μ<-- Τ_Ρ( ν^4 + ν^3 + ν^2 + ν + 1 )
ΜΕΧΡΙΣ_ΟΤΟΥ ν= 10001
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ