egy megoldás a 18ashoz, ha valami nem világos kérdezettek

PROGRAM prog18
VÁLTOZÓK:
cv: EGÉSZ,
vizsgalt: EGÉSZ,
db: EGÉSZ,
prim: LOGIKAI

db := 0
cv := 2
vizsgalt := 0
CIKLUS AMÍG vizsgalt >= 0
BE: vizsgalt
prim := IGAZ
CIKLUS AMÍG cv <= vizsgalt ^ 0.5 ÉS prim
HA vizsgalt MOD cv = 0 AKKOR
prim := HAMIS
HA_VÉGE
cv := cv + 1
CIKLUS_VÉGE
HA prim ÉS vizsgalt > 1 AKKOR
db := db + 1
HA_VÉGE
cv := 2
CIKLUS_VÉGE
KI: db
PROGRAM_VÉGE

Üdv:
Veni

és a 23ashoz is egy megoldás:

PROGRAM prog23
VÁLTOZÓK:
bekert: SZÖVEG,
db: EGÉSZ,
vizsgalt: KARAKTER,
maxdb: EGÉSZ,
max: KARAKTER,
holtart: EGÉSZ,
cv: EGÉSZ

BE: bekert
holtart := 0
db := 0
maxdb := 0
cv := 0
CIKLUS AMÍG holtart < (|bekert|)
vizsgalt := bekert[holtart]
CIKLUS AMÍG cv < (|bekert|)
HA vizsgalt = bekert[cv] AKKOR
db := db + 1
HA_VÉGE
cv := cv + 1
CIKLUS_VÉGE
HA db > maxdb AKKOR
maxdb := db
max := vizsgalt
HA_VÉGE
cv := holtart
holtart := holtart + 1
db := 0
CIKLUS_VÉGE
KI: "leggyakoribb elem: ", max, " és ", maxdb, "x fordul elő"
PROGRAM_VÉGE

Üdv:
Veni

én a primeset tudtam magamtol másik logikával nem tudom :D meik a jobb bár vszinüleg a Zsolt é de hátha ez is megtetszik vkinek :

program prime
VÁLTOZÓK:
prim:egész,
osszeg:egész,
a,i,n:egész
i:=1
n:=0
osszeg:=0
prim:=0
BE:a
CIKLUS AMÍG a>0
i:=1
CIKLUS AMÍG i<=a
HA a mod i = 0 AKKOR
prim:=prim+1
HA_VÉGE
i:=i+1
CIKLUS_VÉGE
HA prim<3 AKKOR
osszeg:=osszeg+1
HA_VÉGE
BE:a
prim:=0
CIKLUS_VÉGE
KI:osszeg
PROGRAM_VÉGE

@Csani-Ryan: ez is jó megoldás, csak sokkalta több lépést végez el(a teszt sorozatommal majd 500al több), de mondjuk most nem volt kikötés, hogy kevés lépésből