👤
KAMYZE
a fost răspuns

Se citeste de la tastatura un numar mai mare decat 1000.Verificati daca numarul este palindrom(un nr este palindrom daca citit de la stanga la dreapta
este egal cu numarul citit de la dreapta la stanga) . Am incercat eu dar nu mai stiu sa continui:
program numar;
var n,m,i,aux :integer;
begin
repeat
write('n=');readln(n);
until(n>1000);
m:=n;
aux:=0(daca nu e bine pana aici va rog sa ma corectati si sa il continuati ca nu stiu cum sa il mai fac mai departe)VA ROG !!! :* :*

Răspuns :

ANGELICUSZE
Program Palindrom;
   var x: integer;

begin
write ('Introduceti un numar cuprins intre 1000 si 32768.');
readln (x);
 
if (x<1001) or (x>MaxInt) then writeln ('Numarul nu se afla in intervalul specificat.);

if x<9999 then
      begin
      if ((x mod 10)=(x div 1000)) and ((x mod 100 div 10)=(x div 100 mod 10))
      then writeln ('Este.')
      else writeln ('Nu este.');
      end;

if x>9999 then
      begin
      if ((x mod 10)=(x div 10000)) and ((x mod 100 div 10)=(x div 1000 mod 10))             then writeln ('Este.')
      else writeln ('Nu este.');
      end;
   
readln;
   end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!


Ze Questions: Alte intrebari