👤
a fost răspuns

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

Răspuns :

LOZANALEXEZ
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 că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari