Информация за цифрите на число

4 Responses to Информация за цифрите на число

1. Боряна каза:

   11 април, понеделник в 16:25

   program informacia;
   var
     chislo, cifra, i, suma, max, broi_0: integer;
   begin
     i:=0;
     suma:=0;
     max:=0;
     broi_0:=0;
     Write('Vavedete mnogocifreno chislo:');
     ReadLn(chislo);
     while chislo<>0 do begin
       cifra:=chislo mod 10;
       i:=i+1;
       suma:=suma+cifra;
       if cifra>max then
          max:=cifra;
       if cifra=0 then
          broi_0:=broi_0+1;
       chislo:=chislo div 10;
     end;
     WriteLn('Vasheto chislo e ', i, '-cifreno.');
     WriteLn('Sumata ot cifrite mu e ', suma, '.');
     WriteLn('Nai-goliamata ot tiah e ', max, '.');
     if broi_0>0 then
        if broi_0>1 then
           WriteLn('V chisloto ima ', broi_0, ' nuli.')
        else WriteLn('V chisloto ima 1 nula.')
     else
       WriteLn('V chisloto niama nuli.');
     ReadLn;
   end.
   

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

     25 април, понеделник в 16:51

     Еха, тази задача е дори с правилни окончания на думите (за броя нули). Браво! :-)

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

   11 април, понеделник в 16:39

   program project1;
   var
     chislo, c, br, suma, max, brn:integer;
   
   begin
     Write('Vavedi chislo:');
     Readln(chislo);
     br:=0;
     suma:=0;
     max:=0;
     brn:=0;
   
     while chislo<>0 do
      begin
        c:= chislo mod 10;
        chislo:= chislo div 10;
        br:=br+1;
        suma:=suma+c;
        if c>max then
        max:=c;
        if c=0 then
        brn:=brn+1;
      end;
   
     Writeln;
     Writeln('Informaciq za chisloto:');
     Writeln('-----------------------');
     Writeln('Broqt na cifrite v chisloto e: ',br);
     Writeln('Sumata ot cifrite v chisloto e: ',suma);
     Writeln('Nai-golqmota cifra ot chisloto e: ',max);
     Writeln('Broqt na nulite v chisloto e: ',brn);
     Readln;
   end.
   

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

   11 април, понеделник в 16:42

   program Project1;
   var
   chislo, br, cifra, suma, br0: integer;
   begin
     br:=0;
     suma:=0;
     br0:=0;
     Write('Vavedete chislo: ');
     ReadLn(chislo);
     while chislo<>0 do begin
       cifra:= chislo mod 10;
       chislo:=chislo div 10;
       br:=br+1;
       suma:=suma+cifra;
       if cifra=0 then begin
         br0:=br0+1;
   
       end;
     end;
     WriteLn('Broqt na cifrite e ', br);
     WriteLn('Sumata na cifrite e ', suma);
     WriteLn('Broqt na nulite e ', br0);
     ReadLn;
   end.            
   

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