================= v-830101.txt,  alias V-04.txt ==========
1.
___________________________________________________
a)  writeln;
       h1:=[1..6,9,12..15];   h2:=[10..13,20];
       h1:=h1*h2;
       for e1:=1 to 30 do
         if e1 in h1 then writeln(e1);
___________________________________________________
b)  writeln;
       l1:=tarsberlet;   v1:=3.2;   e1:=6;
       t2[1,1]:=ord(l1)=1;
       t2[1,2]:=round(v1)<>trunc(v1);
       t2[2,1]:=not t2[1,2] and t2[1,1];
       t2[2,2]:=not odd(e1) or t2[1,1];
       for e1:=1 to 2 do
       for e2:=2 downto 1 do
         writeln(t2[e1,e2]:7);
___________________________________________________
c)  writeln;
       e1:=6;   e2:=5;
       s(e1,e2);
       if not f(e1,e2) then writeln(e1) else writeln(e2);
___________________________________________________
d)  writeln;
       m1:=nil;
       for e1:=1 to pred(4) do
         begin
         new(m2);
         with m2@ do
           begin
           lanc:=m1;
           kulcs:=3*e1;
           end;
         m1:=m2;
         end;
       while m2@.lanc<>nil do
         with m2@ do
           m2:=lanc;
       writeln(m2@.kulcs);
___________________________________________________
e)
       e1:=2; e2:=6;
       for e3:=succ(e1) to pred(succ(pred(e2))) do
         if e3 mod 2 =0 then writeln(e2+e3);
       writeln(pred(e1-e2));
___________________________________________________
f)  writeln;
       e3:=0;
       for l1:=alberlet to kastely do
         begin
         e2:=0;
         repeat e2:=e2+2;
         until e2>=ord(l1);
         e3:=e3+e2;
         end;
       writeln(e3);
___________________________________________________
g)  writeln;
       new(m1); m1@.kulcs:=5; new(m2); m2@.kulcs:=7;
       m1@.lanc:=m2; m2@.lanc:=m1; e1:=0;
       while e1<13 do
         begin
         e1:=e1+m1@.kulcs;
         m1:=m1@.lanc;
         end;
       writeln(e1);
___________________________________________________
h)
       e1:=4; e2:=2;
       while not f(e1,e2) do
         begin e1:=pred(e1); writeln(e1); end;
___________________________________________________
2. feladat
Ťrjon programot, amely beolvas egy 10 elemu, integer
tipusu elemeket tartalmazo tombbe 10 szamot, es
kiirja, hogy melyik elem fordult elo legtobbszor a
tombben. Ha csupa kulonbozo elem van, akkor a kiiras
legyen: "csupa kulonbozo"
pl: 3 4 3 7 10 3 8 6 -8 -9    -->  3
   1 2 3 4 5 6 -7 8 9 10     -->  csupa kulonbozo
___________________________________________________
3. feladat
Ťrjon olyan programot, amely a
tomb:array [1..100] of integer;     tipusu tombbe a
standard inputrol szamokat olvas be. A bemeneten kevesebb
mint szaz szam erkezik, az utolso szam mindig 0 erteku.
Ťrja ki a beolvasott szamokat csokkeno sorrendben.
===================================================
4. feladat
Ťrjon olyan programot amely beolvas 27 termeszetes szamot,
mindegyiket primtenyezoinek szorzatara bontja,
es ezeket kiirja.
___________________________________________________
5. feladat
Keszitendo egy teljes program, amely meghatarozza, hogy
a szabvanyos input allomany hany szazaleka betu, valamint
hogy a betuk hany szazaleka maganhangzo (aeiou). Csak az
angol abc betuit kell tekintetbe venni. Az ujsor jelek
a szamolas szempontjabol ne szamitsanak be az input
allomany karaktereibe.
___________________________________________________