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

Да се въведе число и да се отпечатат:

  • цифрите му в обратен ред
  • сумата от цифрите му
  • колко цифрено е
Публикувано в , СИП с етикети , . Постоянна връзка.

Един коментар по Цифри на число

  1. kaloyan каза:
    VAR chislo,cifra,suma,cifri : integer;
    BEGIN
    suma:=0;
    cifri:=0;
      write('vavedi chislo: '); readln(chislo);
      while chislo>0 do
      begin
        cifra:=chislo mod 10;
        write(cifra);
        suma:=suma+cifra;
        cifri:=cifri+1;
        chislo:=chislo div 10;
      end;
      writeln;
      writeln('sumata e: ',suma);
      writeln('chisloto e ',cifri,' cifreno');
    readln;
    END.
              
    

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