Question

In fisierul in.txt se afla pe prima linie un numar natural intre 2 si 1000 iar pe a doua linie n numere naturale de cel putin 2 si cel mult 9 cifre. Scrie un program Pascal care afiseaza elementele palindroame.

Answer 1

Răspuns:

program palindroame;

var n, i, num, gasit, pal, copie: integer;

begin

 write('n='); read(n);

 writeln('introdu ',n,' numere naturale separate prin spatiu:');

 gasit:=0;

 for i:=1 to n do

   begin

     read (num);

     copie:=num;

     pal:=0;

     while (copie>0) do

       begin

         pal:=pal*10+(copie mod 10);

         copie:=copie div 10;

       end;

     if (pal=num) then

       begin gasit:=1; write (num,' ');  end;

   end;

  writeln;

  writeln('au fost afisate palindroame...');

  if (gasit=0) then writeln('upss.. nu exista');

end.

   

Explicație: