$e
============================= 1984.1.21 ==============
1)
a. e1:=0;
   while not eof do
   begin
        read(ch1);
        if ch1 in (.'0'..'9'.) then
           begin
                e1:=e1+ord(ch1)-ord('0');
                readln
           end;
   end;
   writeln(e1);
                            , ..
a bemeneti adatok:   (a _ szokozt jelent);
       e          e
       o          oe
       l          lo
a_273_4nfg_-49_57_nf
   ----------------------------------------------------
b. h1:=(.20,15..18,2.);    h2:=(.4..9,13..16,22.);
   h1:=h1-h2;
   for e2:=1 to 30 do
       if e2 in h1 then write(e2);
   ----------------------------------------------------
c. e1:=4;   e2:=3;   v1:=3.8;
   t2(.1,1.):= not odd(e1); t2(.1,2.):=trunc(v1)=e1;
   t2(.2,1.):= not t2(.1,1.) and t2(.1,2.);
   t2(.2,2.):= e1*e2-round(v1)=9;
   for e1:=1 to 2 do
   for e2:=1 to 2 do
            writeln(t2(.e1,e2.):6);
   ----------------------------------------------------
d. e1:=5;   e2:=6;   s(e1,e2);
   if f(e1,e2) then writeln(e1) else writeln(e2);
   ----------------------------------------------------
e. new(m1); new(m2); new(m3);
   with m1@ do
     begin  lanc:=m2; kulcs:=2   end;
   with m2@ do
     begin  lanc:=m3; kulcs:=3   end;
   with m3@ do
     begin  lanc:=m2; kulcs:=5   end;
   m3:=m1; e1:=0;
   repeat
         e1:=e1+m3@.kulcs;
         m3:=m3@.lanc;
   until e1>20;
   writeln(e1);
   ----------------------------------------------------
$e
f. m1:=nil;   l2:=orok;
   for l1:=alberlet to pred(l2) do
     begin
          new(m2);
          with m2@ do
          begin
               lanc:=m1;
               kulcs:=ord(l1);
          end;
          m1:=m2;
     end;
     h1:=(..);
     while m1<>nil do
        begin
             h1:=h1+(.m1@.kulcs.);
             m1:=m1@.lanc;
        end;
     for e1:=1 to 30 do
       if e1 in h1 then writeln(e1);
   ----------------------------------------------------

g. writeln; write('_'); ch1:=chr(succ(ord(succ('0'))));
   e1:=0;
   for ch2:=ch1 to '5' do
        e1:=succ(e1);
   writeln(e1);
_________________________________________________________
          ,
    megoldas:
a.   6

b.   2    17    18    20

c.   true
     false
     false
     false

d.   6   0   0
     0

e.  21
                   ,
f.  feldobja a talpat, mert 0-t akar a halmazba tenni.

g.   4
_________________________________________________________
$e
   ,
2. irjon programot, amely beolvassa a bemeneti
       ,    ,   ..             ,  ,
   adatallomany osszes karakteret es kinyomtatja azokat
      ..     ,, ,
   a kovetkezo modon:

      - ami a bemeneten egy sorban volt, az a kimeneten
                        ..         ,
        is egy sorba kerul, de forditott sorrendben.
                  , .. ,, ,  ,
      - a csupa szokozbol allo sorokat a program
                   , ..
        figyelmen kivul hagyja.
_________________________________________________________
   ,               ,   ,  ..  ,                ,    ,
3. irjon  integer tipusu fuggvenyt, amely parameterkent
              ,,           ,                   ,  .. ..
   egy 20 elemu, char tipusu elemeket tartalmazo tombot
   ,
   es egy karaktert kap. ha ez a karakter megegyezik a
    ..                 ,              ..  ,   ,  ,
   tomb valamelyik elemevel, akkor a fuggveny erteke
                       ,,          ,         ..
   vegye fel a megegyezo elem indexet, ha a tombben nincs
                        ..  ,   ,  ,
   ilyen elem, akkor a fuggveny erteke legyen 0. ha a
    ..      ..                                   ,,
   tombben tobb olyan elem is van, amely az illeto
                                    ..  ,
   karakterrel megegyezik, akkor a fuggveny a legkisebb
        ,,                 ,            ,  ,  ,
   indexu azonos elem indexet vegye fel ertekkent.
==========================================================
           ..       ,     ,      ,     ,            ,
4.   nevezzuk egy egesz szam forditottjanak azt a szamot,
                   ,      ,        ,, ,           ,
   amely ugyanazokbol a szamjegyekbol all, de forditott
                           ,  ,           ,        ,
   sorrendben, elhagyva az ertektelen nullakat a szam
       , ,,              ,                 ,
   elejerol (pl. 134 forditottja 431, 7500-e pedig 57).
     ,                                      ,         ,
     irjon programot, amely beolvas egy termeszetes szamot
   ,                    ,     ,
   es kinyomtatja a forditottjat]
_________________________________________________________
$e
           ..   ,        , ....       ,           ,,
5.   nevezzuk szonak a szokozokkel hatarolt, tetszoleges
      ,                        ,
   egyeb karaktereket tartalmazo karaktersorozatot]
      ,  ,                                    ..
     keszitsen programot, mely a beolvasott szoveg minden
       , ,     ..
   szavarol eldonti, hogy az
         ,  ,                  , ,
       - ervenyes pascal azonosito
           ,     ,
       - egesz szam
            ,                     ,               ,
       - egyeb karaktersorozat-e, es ezt minden szohoz
           ,
         kiirja.
                              ,  ,           , ,          ..
  (a pascal kulcsszavakat itt ervenyes azonositoknak vesszuk.)
  ________________________________________________________
           ,       ..     ,,   , ,       ,
6. mit csinalna a kovetkezo eljaras, ha jo lenne?
       ,    ,  ,                 ,   ,,.. ..
   alakitsa at ugy, hogy mindig jol mukodjon]
    ,         ,  ,
 a tipus definiciok: type ptr=@r;
 ~~~~~~~~~~~~~~~~~~~      r=record;
                              tart:real;
                              kov:ptr;
                            end;
       , ,
 az eljaras:
 ~~~~~~~~~~~
 procedure mi(eleje:ptr;ertek:real);
 var uj, elozo, ez:ptr;
 begin
   new(uj); uj@.tart:=ertek;
   ez:=eleje;
   while ez@.tart < ertek do begin
                               elozo:=ez;
                               ez:=ez@.kov;
                             end;
   elozo@.kov:=uj; uj@.kov:=ez;
 end;