practica 2 ejercicio 1, Pascal

practica 2 ejercicio 1

Language: Layout:

//fpc 3.0.4

program HelloWorld;
var
    num,dig:integer;
    max,i:integer;
begin
    writeln('inciso a, b y c');
    for i:=1 to 80 do begin
        max:=0;
        num:= random(35432);  writeln('numero: ',num);
         while num <> 0 do begin
             dig := num mod 10;                                            //primeros 3 incisos
             if (dig mod 2  = 0) then
                 writeln('digito par: ',dig);
             if dig > max then 
                 max:= dig;
             num:= num div 10;
         end;
         writeln('el digito maximo: ',max);
         write;
     end;
     
     writeln;writeln;
     writeln('inciso d');
     num:= random(10)-1;
     while num <> -1 do begin   
         writeln('numero: ',num);
         while num <> 0 do begin
             dig := num mod 10;
             if (dig mod 2  = 0) then                                         //inciso 4
                 writeln('digito par: ',dig);
             num:= num div 10;
         end;
         num:= random(10)-1;
         writeln;
     end;
     
     writeln;writeln;
     writeln('incioso e');
     max:=0;
     while max <> 19 do begin
         num:= random(2145);
         writeln('numero: ',num);
         max:=0;
         while num <> 0 do begin
             dig:= num mod 10;
             max:=max+dig;                                    // quinto inciso
             num:= num div 10;
         end;
         writeln('suma de sus digitos: ',max);
         writeln;
     end;
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.12 sec, absolute running time: 0.16 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,49 sec

inciso a, b y c numero: 19445 digito par: 4 digito par: 4 el digito maximo: 9 numero: 21005 digito par: 0 digito par: 0 digito par: 2 el digito maximo: 5 numero: 25340 digito par: 0 digito par: 4 digito par: 2 el digito maximo: 5 numero: 29914 digito par: 4 digito par: 2 el digito maximo: 9 numero: 21357 digito par: 2 el digito maximo: 7 numero: 30398 digito par: 8 digito par: 0 el digito maximo: 9 numero: 19306 digito par: 6 digito par: 0 el digito maximo: 9 numero: 30019 digito par: 0 digito par: 0 el digito maximo: 9 numero: 15010 digito par: 0 digito par: 0 el digito maximo: 5 numero: 22094 digito par: 4 digito par: 0 digito par: 2 digito par: 2 el digito maximo: 9 numero: 22885 digito par: 8 digito par: 8 digito par: 2 digito par: 2 el digito maximo: 8 numero: 13619 digito par: 6 el digito maximo: 9 numero: 15504 digito par: 4 digito par: 0 el digito maximo: 5 numero: 10542 digito par: 2 digito par: 4 digito par: 0 el digito maximo: 5 numero: 31597 el digito maximo: 9 numero: 2009 digito par: 0 digito par: 0 digito par: 2 el digito maximo: 9 numero: -31392 digito par: -2 el digito maximo: 0 numero: 9660 digito par: 0 digito par: 6 digito par: 6 el digito maximo: 9 numero: 13586 digito par: 6 digito par: 8 el digito maximo: 8 numero: 16924 digito par: 4 digito par: 2 digito par: 6 el digito maximo: 9 numero: 28052 digito par: 2 digito par: 0 digito par: 8 digito par: 2 el digito maximo: 8 numero: 28776 digito par: 6 digito par: 8 digito par: 2 el digito maximo: 8 numero: 18739 digito par: 8 el digito maximo: 9 numero: 17006 digito par: 6 digito par: 0 digito par: 0 el digito maximo: 7 numero: 20126 digito par: 6 digito par: 2 digito par: 0 digito par: 2 el digito maximo: 6 numero: 13917 el digito maximo: 9 numero: -32741 digito par: -4 digito par: -2 el digito maximo: 0 numero: 29623 digito par: 2 digito par: 6 digito par: 2 el digito maximo: 9 numero: 2516 digito par: 6 digito par: 2 el digito maximo: 6 numero: 11954 digito par: 4 el digito maximo: 9 numero: 3087 digito par: 8 digito par: 0 el digito maximo: 8 numero: 22966 digito par: 6 digito par: 6 digito par: 2 digito par: 2 el digito maximo: 9 numero: 716 digito par: 6 el digito maximo: 7 numero: 13047 digito par: 4 digito par: 0 el digito maximo: 7 numero: 29501 digito par: 0 digito par: 2 el digito maximo: 9 numero: -31623 digito par: -2 digito par: -6 el digito maximo: 0 numero: 27571 digito par: 2 el digito maximo: 7 numero: 4972 digito par: 2 digito par: 4 el digito maximo: 9 numero: 30826 digito par: 6 digito par: 2 digito par: 8 digito par: 0 el digito maximo: 8 numero: 30828 digito par: 8 digito par: 2 digito par: 8 digito par: 0 el digito maximo: 8 numero: -30862 digito par: -2 digito par: -6 digito par: -8 digito par: 0 el digito maximo: 0 numero: 16780 digito par: 0 digito par: 8 digito par: 6 el digito maximo: 8 numero: 28315 digito par: 8 digito par: 2 el digito maximo: 8 numero: 28377 digito par: 8 digito par: 2 el digito maximo: 8 numero: 16351 digito par: 6 el digito maximo: 6 numero: 18441 digito par: 4 digito par: 4 digito par: 8 el digito maximo: 8 numero: 27655 digito par: 6 digito par: 2 el digito maximo: 7 numero: 24054 digito par: 4 digito par: 0 digito par: 4 digito par: 2 el digito maximo: 5 numero: 4190 digito par: 0 digito par: 4 el digito maximo: 9 numero: 25533 digito par: 2 el digito maximo: 5 numero: 22673 digito par: 6 digito par: 2 digito par: 2 el digito maximo: 7 numero: 20622 digito par: 2 digito par: 2 digito par: 6 digito par: 0 digito par: 2 el digito maximo: 6 numero: 5079 digito par: 0 el digito maximo: 9 numero: 19040 digito par: 0 digito par: 4 digito par: 0 el digito maximo: 9 numero: -32065 digito par: -6 digito par: 0 digito par: -2 el digito maximo: 0 numero: 26879 digito par: 8 digito par: 6 digito par: 2 el digito maximo: 9 numero: 18490 digito par: 0 digito par: 4 digito par: 8 el digito maximo: 9 numero: 3752 digito par: 2 el digito maximo: 7 numero: 14692 digito par: 2 digito par: 6 digito par: 4 el digito maximo: 9 numero: 16780 digito par: 0 digito par: 8 digito par: 6 el digito maximo: 8 numero: 9373 el digito maximo: 9 numero: 6602 digito par: 2 digito par: 0 digito par: 6 digito par: 6 el digito maximo: 6 numero: 27432 digito par: 2 digito par: 4 digito par: 2 el digito maximo: 7 numero: 26110 digito par: 0 digito par: 6 digito par: 2 el digito maximo: 6 numero: 16162 digito par: 2 digito par: 6 digito par: 6 el digito maximo: 6 numero: 7672 digito par: 2 digito par: 6 el digito maximo: 7 numero: 20140 digito par: 0 digito par: 4 digito par: 0 digito par: 2 el digito maximo: 4 numero: 4791 digito par: 4 el digito maximo: 9 numero: 665 digito par: 6 digito par: 6 el digito maximo: 6 numero: 11484 digito par: 4 digito par: 8 digito par: 4 el digito maximo: 8 numero: 21884 digito par: 4 digito par: 8 digito par: 8 digito par: 2 el digito maximo: 8 numero: 5303 digito par: 0 el digito maximo: 5 numero: 21687 digito par: 8 digito par: 6 digito par: 2 el digito maximo: 8 numero: 7877 digito par: 8 el digito maximo: 8 numero: 21859 digito par: 8 digito par: 2 el digito maximo: 9 numero: 13694 digito par: 4 digito par: 6 el digito maximo: 9 numero: -32098 digito par: -8 digito par: 0 digito par: -2 el digito maximo: 0 numero: 31980 digito par: 0 digito par: 8 el digito maximo: 9 numero: 24158 digito par: 8 digito par: 4 digito par: 2 el digito maximo: 8 numero: 15942 digito par: 2 digito par: 4 el digito maximo: 9 inciso d numero: 2 digito par: 2 numero: 5 numero: 3 numero: 8 digito par: 8 numero: 5 incioso e numero: 129 suma de sus digitos: 12 numero: 2080 suma de sus digitos: 10 numero: 1430 suma de sus digitos: 8 numero: 1400 suma de sus digitos: 5 numero: 1438 suma de sus digitos: 16 numero: 366 suma de sus digitos: 15 numero: 451 suma de sus digitos: 10 numero: 768 suma de sus digitos: 21 numero: 276 suma de sus digitos: 15 numero: 1610 suma de sus digitos: 8 numero: 676 suma de sus digitos: 19