pascal klausimas "while ciklas"

Iš informatikos mokytojo gavau tokia užduoti ir niekaip nesugalvoju kaip padaryt. Duodamas bet koks skaičius. Ji turiu nusiskaityt, po to išskaidyt ciklu ir sudėt i masyvo elelmentus. Paskui tikrinti skaičius pirma ir paskutini, antra skaičiu su nuogalo antru ir t.t. Gal kas galėtumėt padėt biški? :)

Iš informatikos mokytojo gavau tokia užduoti ir niekaip nesugalvoju kaip padaryt. Duodamas bet koks skaičius. Ji turiu nusiskaityt, po to išskaidyt ciklu ir sudėt i masyvo elelmentus. Paskui tikrinti skaičius pirma ir paskutini, antra skaičiu su nuogalo antru ir t.t. Gal kas galėtumėt padėt biški? :)

O kas turi gautis patikrinus pirmą skaičių su paskutiniu?

o ka daryti jei yra 5 skaitmenys?

pvz. 12345

1 lyginam su 5

2 lyginam su 4

o su '3' ka daroma?

Paskui tikrinti skaičius pirma ir paskutini, antra skaičiu su nuo galo antru ir t.t.

kaip suprast tikrini?, tai čia ta prasme kad lygini kuris didesnis? ir ką daryt jei skaičius yra pvz 5, 7, 9 skaitmenų?

rašiau nepascalyje, todėl nepateiksiu viso kodo, tik fragmentą kaip išskaidyti ciklu ir sudėt į masyvą.

while a<>0 do 
 begin
   b:=a mod 10;
   n:=n+1;
   a:=a div 10;
   for i:=1 to n do(čia klaida gali būt)
     A[n]:=b;
 end;

while a<>0 do 
 begin
   b:=a mod 10;
   n:=n+1;
   a:=a div 10;
   for i:=1 to n do(čia klaida gali būt)   //kam tas ciklas is viso? 
     A[n]:=b;                    //pirma a yra integer tipo, veliau jau masyvas?
 end;

Aš daryčiau šitaip:

n := 0;
while a <> 0 do
 begin
   n := n + 1;
   mas[n] := a mod 10;
   a := a div 10;
 end;

Tikrini pirma su paskutiniu ar yra lygus. :) Jei lygus tikrini antra ar yra lygus. Jei penki skaičiai tai nieko neišeis. Čia tikrint reik ar tas skaičius yra "palindromas" tai vadinas jei neklystu. :) Pabandysiu pernegrinėsiu kodus kur pateikėt, jei kas bus neaišku dar paklusiu. :)

Masyva cia naudot yra biski nepraktiska.. As daryciau taip :

ReadLn(n);


y := 0;
x := n;
while (n > 0) do
   begin
       y := y*10 + (n mod 10);
       n := n div 10;
   end;

if (x = y)
   then WriteLn('Palindromas');

program uzduotis;
type masyvas = array[1..15] of integer;
var i, y, sk, n : integer;
   A : masyvas;
begin
 readln(sk);
 n := sk;
 while n > 0 do
   begin
       i := i + 1;
       A[i] := n mod 10;
       y := y * 10 + n mod 10;
       n := n div 10;
   end;
if (sk = y)
   then WriteLn('Palindromas');
  Readln;
end.

na masyvo cia nereiktu bet jei to reikalauja salyga taitada reik :)