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

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

1. kaloyan каза:

   16 май, сряда в 13:09

   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.   
   

   Влезте, за да отговорите
   • Данаил каза:

     28 май, понеделник в 02:09

     Калояне, това че една цифра не е по-малка от минималната не значи непременно, че е максимална – може да е по средата просто. Частта с else не ти е коректна.

     Влезте, за да отговорите
2. kaloyan каза:

   16 май, сряда в 18:11

   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.      
   

   Влезте, за да отговорите
   • Данаил каза:

     28 май, понеделник в 02:09

     Това решение е и по-вярно, и по-прегледно.

     Влезте, за да отговорите