Question

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

Answer 1

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.