👤
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 :

ANGELICUSVIZ
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 pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!


Viz Lesson: Alte intrebari