begin read(x); b:=true; cp:=10; while (x>0) do begin if (cp<(x mod 10)) then begin b:=false; break; end else cp:=x mod 10; x:=x div 10; end; if (b) then write('Sunt aranjate crescator') else write('Nu sunt aranjate crescator'); end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!