I Tétel
Írjunk egy pszeudokódot, amely egy beolvasott számról megállapítja. hogy prím-e.

EGESZ szam, oszto;
LOGIKAI prim = IGAZ;
IRD "szam=";
OLVASD szam;

MINDEN(oszto=2, szam/2+1) VÉGEZD EL
|    HA (szam mod oszto == 0) AKKOR
|    |        prim = HAMIS;
|    └■
└■

HA (prim == IGAZ) AKKOR
|    IRD "a szam prim";
└■
KULONBEN
|    IRD "a szam nem prim";
└■

II. Tétel

Írjunk egy pszeudokódot, amely egy beolvasott számról megállapítja, hogy pallindróm-e.

EGESZ szam, szamjegy, ujszam, seged;
IRD "szam=";
OLVASD szam;
ujszam=0;
seged=szam;
AMIG (seged>0) VEGEZD EL
|    szamjegy=szam mod 10;
|    seged=seged / 10;
|    ujszam=ujszam*10+szamjegy;
└■


HA ujszam==szam AKKOR
|    IRD "A szam pallindrom";
└■
KULONBEN
|    IRD "A szam nem pallindrom";
└■

III. Tétel

Olvassunk be 5 számot, s írjuk ki a második legkisebbet!

EGESZ a, b, c, d, e;
EGESZ min1, min2;
IRD "a=";
OLVASD a;
IRD "b=";
OLVASD b;
IRD "c=";
OLVASD c;
IRD "d=";
OLVASD d;
IRD "e=";
OLVASD e;
//megnezzuk, hogy az elso ketto kozul melyik a kisebb, ez lesz a min1, s a nagyobb a min2
HA (a < b) AKKOR
|    min1 = a;
|    min2 = b;
└■
KULONBEN
|    min1 = b;
|    min2 = a;
└■
//megnezzuk, hogy a c kisebb-e, mint a min1, akkor ez lesz az uj minimum, s az eddigi minimum a masodik legkisebb
HA (c <  min1) AKKOR
|    min2 = min1;
|    min1 = c;
└■
KULONBEN HA (c < min2) AKKOR
|    min2 = c;
└■
//az elozo lepest ismeteljuk a maradek valtozokra

HA (d <  min1) AKKOR
|    min2 = min1;
|    min1 = d;
└■
KULONBEN HA (d < min2) AKKOR
|    min2 = d;
└■
HA (e <  min1) AKKOR
|    min2 = min1;
|    min1 = e;
└■
KULONBEN HA (e < min2) AKKOR
|    min2 = e;
└■

IRD "A masodik legkisebb", min2;

IV Tétel
Olvass be 2 számot, s írd ki a legkisebb közös többszörösüket s legnagyobb közös osztójukat

EGESZ szam1, szam2, lkkt;
IRD "szam1=";
OLVASD szam1;
IRD "szam2=";
OLVASD szam2;
lkkt=szam1*szam2;
AMIG (szam1 != szam2) VEGEZD EL
|    HA (szam1>szam2) AKKOR
|    |    szam1=szam1-szam2;
|    └■
|    KULONBEN 
|        szam2=szam2-szam1;
|    └■
└■
lkkt = lkkt/szam1;
IRD "a legnagyobb kozos oszto", szam1;
IRD "a legkisebb kozos tobbszoros", lkkt;

V tétel
Írjunk egy programot, amely beolvas egy n számot, majd kiírja az n. Fibonacci számot! (feltételezzük, hogy n ≥ 2 )

EGESZ F, prev, current, n, index;
IRD "n=";
OLVASD n;
prev = 1;
current = 1;
MINDEN index=3, n VÉGEZD EL
|    F = prev + current;
|    prev = current;
|    current = F;
└■
KIIR F;