Răspuns :
8. intreg n, ogl, n1, p1, p2, d1, d2
inceput
citește n
n1 <- n; ogl <- 0
cat timp (n1 > 0) executa
ogl <- ogl * 10 + n1 % 10
n1 <- n1/10
sfârșit cat timp
p1 <- 1; p2 <- 1
dacă(n = 1 or n = 0) at. p1 <- 0 sf. dacă
dacă(ogl = 1 or ogl = 0) at. p2 <- 0 sf. daca
pentru d1 <- 2, n/2 executa
dacă(n % d1 = 0) atunci p1 <- 0 sf. dacă
sfârșit pentru
pentru d2 <- 2, ogl/2 executa
dacă(ogl % d1 = 0) atunci p2 <- 0 sf. dacă
sfârșit pentru
daca(p1 and p2) atunci scrie "Ambele sunt prime"
altfel scrie "Unul sau niciunul nu e prim"
sf. dacă
sfarsit
9. intreg n, p, d, p1
inceput
citește n
p <- n ^ 2
p1 <- 1
dacă(n = 1 or n = 0) atunci
p1 <- 0
sf. dacă
pentru d <- 2, n/2 executa
dacă(n % d = 0) at. p1 <- 0
sf. pentru
dacă(p1) atunci scrie "n este număr prim. Patratul oricărui număr nu poate fi număr prim, deci n^2 nu e număr prim"
altfel scrie "Niciun număr nu e prim"
sf. dacă
sfarsit
inceput
citește n
n1 <- n; ogl <- 0
cat timp (n1 > 0) executa
ogl <- ogl * 10 + n1 % 10
n1 <- n1/10
sfârșit cat timp
p1 <- 1; p2 <- 1
dacă(n = 1 or n = 0) at. p1 <- 0 sf. dacă
dacă(ogl = 1 or ogl = 0) at. p2 <- 0 sf. daca
pentru d1 <- 2, n/2 executa
dacă(n % d1 = 0) atunci p1 <- 0 sf. dacă
sfârșit pentru
pentru d2 <- 2, ogl/2 executa
dacă(ogl % d1 = 0) atunci p2 <- 0 sf. dacă
sfârșit pentru
daca(p1 and p2) atunci scrie "Ambele sunt prime"
altfel scrie "Unul sau niciunul nu e prim"
sf. dacă
sfarsit
9. intreg n, p, d, p1
inceput
citește n
p <- n ^ 2
p1 <- 1
dacă(n = 1 or n = 0) atunci
p1 <- 0
sf. dacă
pentru d <- 2, n/2 executa
dacă(n % d = 0) at. p1 <- 0
sf. pentru
dacă(p1) atunci scrie "n este număr prim. Patratul oricărui număr nu poate fi număr prim, deci n^2 nu e număr prim"
altfel scrie "Niciun număr nu e prim"
sf. dacă
sfarsit
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile v-au fost de ajutor. Dacă aveți întrebări suplimentare sau aveți nevoie de asistență, nu ezitați să ne contactați. Revenirea dumneavoastră ne-ar onora, așa că nu uitați să ne adăugați la favorite!