Най-голямата и най-малката цифра

Да се напише програма, която позволява да се въведе число и извежда най-малката и най-голямата от неговите цифри.

Публикувано в с етикети . Постоянна връзка.

4 коментара по Най-голямата и най-малката цифра

  1. kaloyan каза:
    VAR chislo,min,max: integer;
    BEGIN
    write('vavedi chislo: '); readln(chislo);
    min:=chislo;
    max:=0;
      while chislo<>0 do
        begin
          if (chislo mod 10) < min then min:=chislo mod 10
            else
          max:=chislo mod 10;
          chislo:=chislo div 10;
        end;
      writeln('nai-malkata cifra e ',min,' nai-goliamata cifra e ', max);
    
    readln;
    END.   
    
  2. kaloyan каза:
    VAR chislo,cifra,min,max : integer;
    BEGIN
         write('vavedi chislo: '); readln(chislo);
         min:=chislo;
         max:=0;
           while chislo<>0 do
             begin
                cifra:=chislo mod 10;
                  if cifra<min then min:=cifra;
                  if cifra>max then max:=cifra;
                chislo:=chislo div 10;
             end;
         writeln('nai-malkata cifra na chisloto e ',min,' a nai-goliamata cifra na chisloto e ',max);
    
    readln;
    END.      
    

Вашият коментар