Question

Программирование PascalABC
На интервале от 5 до 11 найдите сумму цифр​

Answer 1

Ответ:

Цикл работает с разными интервалами. Допустим от -1 до 1 будет 2. От 1 до 2 будет 3. От 5 до 11 будет 38.

Объяснение:

program Sum_cifr;

var i, x, a, b, S:integer;

begin

 readln(a, b);

 S:=0;

 for i:= a to b do

   begin

   

   x:=Abs(i);     // делаем положительным число, если оно отрицательное

   while x>0 do                    // цикл, в котором будет число

       begin                             //будет разбиваться на цифры

       

       S:= S+(x mod 10);    // отсекаем у числа последнюю цифру

       x:= x div 10;            //  и складываем, а после убираем последнюю

                                       // цифру у самого числа

       end;

   

   end;

 writeln(S)

end.