👤

Sa se verifice daca cifrele pare dintr-un numar sunt asezate in ordine crescatoare.Argoritmul va rooog.

Răspuns :

var
  x,cp:integer;
  b:boolean;

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!


Ze Lesson: Alte intrebari