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

    Помогите составить программу, вычисляющую сумму чисел четырехзначного числа. СРОЧНО!!! Помогите!!!

    • 18 November 2014
    • Ответ оставил: Sashaa86rus

    Program gt;
    var n,s:integer;
    begin
    readln(n);
    s:=n div 1000+(n div 100)mod 10+(n mod 100)div 10+n mod 10;
    writeln(s);
    end.

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

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