Исходник программы, которая находит сумму всех цифр в числе, введённого пользователем с клавиатуры. Исходник основан на цикле WHILE. Есть пояснительные комментарии к каждой строке. Увидеть исходный код и скачать скомпилированный исходник вы можете далее.
Исходный код программы, которая находит сумму цифр числа:
Задача
Дано число. Найти сумму и произведение его цифр.
Решение
n – число;
sum – сумма цифр;
mult – произведение цифр.
Алгоритм решения задачи:
- sum присвоить ноль.
- mult присвоить единицу (при умножении на ноль результат будет нулевым).
- Пока n больше нуля
- найти остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;
- избавиться от последнего разряда числа n путем деления нацело на число 10.
Напишите программу,которая считает сумму цифр введенного числа (паскаль)
Programи fr;
var a, sum: integer;
Begin
Writeln (‘Введите число’);
Readln (a);
while a<>0 do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
Writeln (‘Сумма цифр ‘,sum);
end.
Почему используется вот такая запись ( что это значит ) — sum:=sum+(a mod 10) .
Можно ли написать эту программу как то через другой цикл? ( если да,то напишите его)