Примеры задач

Простые типы данных

Найти сумму цифр числа.

Методика решения

Используемые переменные:
M - цифра числа,
N - число,
SUM - сумма цифр числа.

Для начала считываем число с экрана. Переменную Sum обнуляем.

Для отделения цифр от числа используем операции mod – вычисление остатка от деления, и div – целочисленное деление.

С помощью операции mod делим число n на 10 и присваиваем результат переменной m . Таким образом мы отдели последнюю цифру от числа. Полученную цифру прибавляем к сумме. Число n с помощью операции div делим нацело на 10, и получаем это же число без последней цифры.

Например:
123 mod 10 = 3,
123 div 10 = 12.

Повторяем эти действия в цикле, пока цифры в числе не закончатся. То есть, пока n не будет равно 0.

Полученную сумму выводим на экран.

Листинг программы

Program ex1;

Uses Crt;

Var m,n:Longint;

sum:Integer;

Begin ClrScr;

Writeln('Введите целое число');

Readln(n);

sum:=0;

While n<>0 Do

Begin

m:=n Mod 10;

n:=n Div 10;

sum:=sum+m

End;

Write('Сумма цифр числа равна',sum:4);

Readkey;

End.

Запустить программу

Назад