!-------------------------------------------------------------------
! Το πρόγραμμα δέχεται ένα θετικό ακέραιο και
! απλοποιεί την ρίζα του Α,
! π.χ. αν Α=12 τότε Τ_Ρ(12)= 2*Τ_Ρ(3)
!------------------------------------------------------------------
ΠΡΟΓΡΑΜΜΑ ΑΠΛΟΠΟΙΗΣΗ_ΡΙΖΑΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α,ΔΥΠ,ΔΑΚ,Ι
ΑΡΧΗ
ΓΡΑΨΕ_ 'Δώσε ένα θετικό ακέραιο'
ΔΙΑΒΑΣΕ Α
ΑΝ Α<0 ΤΟΤΕ
Α <-- (-1)*Α
ΤΕΛΟΣ_ΑΝ
ΔΥΠ <-- Α
ΔΑΚ <-- 1
Ι <-- 2
ΟΣΟ Ι<=Α_Μ(Τ_Ρ(Α)) ΕΠΑΝΑΛΑΒΕ
ΑΝ ΔΥΠ MOD Ι^2=0 ΤΟΤΕ
ΔΑΚ <-- ΔΑΚ*Ι
ΔΥΠ <-- ΔΥΠ DIV Ι^2
ΑΛΛΙΩΣ
Ι <-- Ι+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Τ_Ρ(',Α,')=',ΔΑΚ,'*Τ_Ρ(',ΔΥΠ,')'
ΓΡΑΨΕ Α,'=',ΔΑΚ,'^2 *',ΔΥΠ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ