Viккi
Опубликовано 6 лет назад по предмету Информатика от Viккi


найти сумму цифр четырёхзначного числа

  1. Ответ
    Ответ дан Санечка69

    var n,a,b,c,d,s:integer;

    begin

      write('n='); readln(n); {n -  даанное 4-хзначное число}

      a:=n mod 10; {последняя, 4-я, цифра числа}

      b:=(n div 10) mod 10; {предпоследняя, 3-я, цифра}

      c:=(n div 100) mod 10; {2-я цифра}

      d:=n div 1000; {1-я цифра}

      s:=a+b+c+d;

       writeln('s=',s);

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц