Цифри на число

4 Responses to Цифри на число

1. Alya каза:

   21 април, четвъртък в 13:59

   program Project1;
   var
     chislo, cifra, sum, br:integer;
   begin
     sum:=0;
     br:=0;
     Write('Vavedete chislo: ');
     Readln(chislo);
     repeat
       cifra:=chislo mod 10;
       chislo:=chislo div 10;
       WriteLn(cifra);
       sum:=sum+cifra;
       br:=br+1;
     until chislo=0;
     WriteLn('Sumata e: ', sum);
     WriteLn('Broqt na cifrite e: ', br);
     ReadLn;
   end.   
   

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

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

     Браво, Аля! Но пробвай да ползваш Write вместо WriteLn, за да ти е на един ред числото наобратно.

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

   25 април, понеделник в 15:48

   //тази програма правя само заради 13-ти ред
   program Project1;
   var
     chislo, cifra, obratno, suma, br: integer;
   begin
     Write('Vavedete chislo:');
     ReadLn(chislo);
     obratno:=0;
     suma:=0;
     br:=0;
     repeat
       cifra:=chislo mod 10;
       obratno:=(obratno*10)+cifra;
       suma:=suma+cifra;
       br:=br+1;
       chislo:=chislo div 10;
     until chislo=0;
     WriteLn('Chisloto naobratno e ', obratno, '.');
     WriteLn('Sumata ot cifrite na chisloto e ', suma, '.');
     WriteLn('Broiat ot cifrite na chisloto e ', br, '.');
     ReadLn;
   end.
   

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

     25 април, понеделник в 17:04

     Браво! Много добра идея и решение! :-)

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