• 18 November 2014
    • Беларуская мова
    • Автор: Dragoncity96

    Составте программу вычисляющего сумму 4х значного числа
    Просьба оформить по всем правилам

    • 18 November 2014
    • Ответ оставил: Кристина111103

    Program sumator; {На самом деле, эта программа способна вычислять сумму цифр любого числа, а не только 4-х значного} 
    uses crt; 
    var c:integer; 
    ed,des,sot,tis,sum:real; 
    begin 
    clrscr; 
    repeat 
    writeln ('Введите число'); 
    readln (c); 
    ed:=c div 10; 
    ed:=c - ed*10; 
    des:=c div 100; 
    des:=(c - des*100 - ed)/10; 
    sot:=c div 1000; 
    sot:=(c-sot*1000 - (des*10+ed))/100; 
    tis:=(c-(sot*100+des*10+ed))/1000; 
    sum:=ed+des+sot+tis; 
    writeln ('Сумма цифр = ',sum:2:0); 
    until c=0; 
    end.

    Оцени ответ
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы