👤
a fost răspuns

Se citeste un numar nr sa se afiseze cifra maxima care apare in scrierea lui
Cifra maxima se initializeaza 0

Răspuns :

ANGELICUSZE
Program CifraMax;
var nr, y: integer;

  Function CMAX(A:integer):integer;
    var
      max, b, c, d: integer;
begin
b:=10000;
max:=0;
        for c:=1 to 5 do
        begin
        d:=A div b;
        if d>max then max:=d;
        A:=A-b*d;
        b:=b div 10;
        end;
CMAX:=max;
end;
 
begin
  write ('Introduceti un numar: ');
  readln (nr);
y:=CMAX(nr);
writeln ('Cea mai mare cifra este: ',y);
 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