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

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


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

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

Используемые переменные:
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.

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






Назад

Закрыть