Question

Cerinţa
Se dau n numere naturale. Determinați câte dintre ele au proprietatea că sunt prime cu oglinditul lor.

Date de intrare
Programul citește de la tastatură numărul n, iar apoi n numere naturale, separate prin spaţii.

Date de ieşire
Programul afișează pe ecran numărul C, reprezentând valoarea ceruta.

Answer 1

natural n,i,x,inv,aux,c
citește n
c <- 0
pentru i<-1,n execută
citește x
inv<-0
aux <-x
cât timp aux <> 0 executa
inv<-inv*10+aux%10
aux <- [aux/10]

cât timp n <> inv executa
dacă n>inv atunci
n <- n-inv
altfel
inv <- inv-n

dacă n=1 atunci
c <- c+1

scrie c