ΠΡΟΓΡΑΜΜΑ άσκηση
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: A[50] 
  ΛΟΓΙΚΕΣ: καρκινική
  ΑΚΕΡΑΙΕΣ: i, N
ΑΡΧΗ
  ΔΙΑΒΑΣΕ A[1] 
  i <- 1
  ΟΣΟ A[i] <> "." ΕΠΑΝΑΛΑΒΕ
    ΑΝ A[i] <> "." ΤΟΤΕ
      i <- i + 1
    ΤΕΛΟΣ_ΑΝ
    ΔΙΑΒΑΣΕ A[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  N <- i - 1
  καρκινική <- ΑΛΗΘΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N div 2
    ΑΝ A[i] <> A[N + 1 - i] ΤΟΤΕ
      καρκινική <- ΨΕΥΔΗΣ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ καρκινική = ΑΛΗΘΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'Η έκφραση είναι καρκινική'
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Η έκφραση δεν είναι καρκινική'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 
!ArxeioEisodou
Σ
Ε
Ρ 
Ρ
Ε
Σ
.