1. astea | hiru zifrako zenbaki oso bat atzekoz aurrera

Osoa den hiru zifrako zenbakia atzekoz aurrera jarri

Idatz ezazu zera burutzen duen programa Pascal lengoaia erabiliz. Programak teklatutik hiru digituko zenbaki bakarra irakurri eta emandako hiru digituak alderantzizko ordenan idatzi egiten duena. Honez gain, alderantzizko ordenak osatzen duen zenbakia ere pantailaratuko du programak.

Adibidez:

Sartu hiru digituko zenbakia, 100 eta 999 artekoa: 123 Emandako zenbakiaren digituak atzekoz aurrera: 3, 2, 1 Sartutako zenbakia: 123 Atzekoz aurrerakoa: 321

Oharra: Erabiltzaileak sartutako zenbakia (123) lodian dago eta ReadLn bakar baten bitartez irakurri da programan. Ariketaren programabat hau izan daiteke:

{---------------------------------------------------------------------------
       Hiru zifrako zenbaki osoa irakurri, ondoren zifrak banan banan
       hartu eta sarreraren zenbaki simetrikoa osatu eta pantailaratu
 ---------------------------------------------------------------------------}

program HiruZifrakoZenbakiarenSimetrikoa ;

var
   iZenbakia, iSimetrikoa : integer ;
   iEhunekoak, iHamarrekoak, iUnitateak, iHondarra : integer ;

begin
   writeln('//////////////////////////////////////') ;
   writeln ;
   
   write('Sartu hiru digituko zenbakia, 100 eta 999 artekoa: ') ;
   readln(iZenbakia) ;

   iEhunekoak := iZenbakia div 100 ;
   iHondarra := iZenbakia mod 100 ;

   iHamarrekoak := iHondarra div 10 ;
   iUnitateak := iHondarra mod 10 ;

   writeln('Emandako zenbakiaren digituak atzekoz aurrera: ', iUnitateak, ', ', iHamarrekoak, ', ', iEhunekoak) ;

   iSimetrikoa := iUnitateak*100 + iHamarrekoak*10 + iEhunekoak ;

   writeln ;
   writeln('Sartutako zenbakia: ', iZenbakia) ;
   writeln('Atzekoz aurrerakoa: ', iSimetrikoa) ;

   writeln ;
   writeln ;
   writeln('=======================') ;
   writeln('RETURN sakatu amaitzeko') ;
   writeln('=======================') ;
   readln ;
end. { PROGRAMAREN BUKAERA }

Hemen daukazu programa hori exekutatzean lortzen den emaitzaren irudi bat:

Aurreko programa hau aintzat harturik, oso antzekoa den  1. astea | billeteak eta txanponak ariketari ekin.