Сумата от цифрите на числото

Да се напише програма, която позволява да се въведе трицифрено положително число и извежда на екрана сумата от цифрите му.

Публикувано в 10a, 10б с етикети . Постоянна връзка.

2 коментара по Сумата от цифрите на числото

  1. teriinkaa17 каза:
    program project1;
    var
     chislo, suma: integer;
    
     c1, c2, c3: byte;
    
    
    begin
      WriteLn(' Vavedete dvucifreno chislo;') ;
      ReadLn (chislo) ;
      c1:=chislo div 100 ;
      C2:=chislo mod 100 div 10 ;
      c3:=chislo mod 10 ;
      suma:=c1+c2+c3;
      WriteLn( ' Sumata na cifrite e ',suma ) ;
      ReadLn
    end.
  2. Dimitrov каза:
    program project1;
    var
    chislo, suma: integer;
    c1, c10, c100, c1000: byte;
    begin
    WriteLn ('Vavedete chetiricifreno chislo za da vidite kolko e sbora ot cifrite mu:');
    ReadLn (chislo);
    c1000:= chislo div 1000;
    c100:= chislo mod 1000 div 100;
    c10:= chislo mod 100 div 10;
    c1:= chislo mod 10;
    suma:= c1000+ c100+ c10+ c1;
    WriteLn ('Sumata ot cifrite e ', suma);
    WriteLn ('Chisloto na obratno e ', c1, c10, c100, c1000);
    ReadLN;
    end.

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