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

EGESZ a, b;
LOGIKAI prim = IGAZ;

IRD "a=";
OLVASD a;

for(b=2; b<a/2+1; b++)
    HA (a mod b == 0)
         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 a. b. c, d;

IRD "a=";
OLVASD a;

d=0;
b=a;
AMIG (b>0) VEGEZD EL
    c=b mod 10;
    b=b / 10;
    d=d*10+c;


HA a==d 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

EGESZ a, b, c, lkkt;

IRD "a=";
OLVASD a;

IRD "b=";
OLVASD b;

c=a*b;

AMIG (a != b) VEGEZD EL
    HA (a>b) AKKOR
       a=a-b;
    KULONBEN HA (b>a) AKKOR
       b=b-a;

lkkt = c/a;

IRD "a legkisebb kozos tobbszoros", lkkt;