Сумма и произведение цифр числа

Задача

Дано число. Найти сумму и произведение его цифр.

Решение

Описание переменных: 

n – число;
sum – сумма цифр;
mult – произведение цифр.

Алгоритм решения задачи: 

  1. sum присвоить ноль.
  2. mult присвоить единицу (при умножении на ноль результат будет нулевым).
  3. Пока n больше нуля
    1. найти остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;
    2. избавиться от последнего разряда числа n путем деления нацело на число 10.

Программа на языке Паскаль: 

 

var n, sum, mult: integer;
begin
    write('Enter number: ');
    readln(n);
    sum := 0;
    mult := 1;
    while n > 0 do begin
        sum := sum + n mod 10;
        mult := mult * (n mod 10);
        n := n div 10
    end;
    writeln('Sum of digits = ', sum);
    writeln('Multiplication of digits = ', mult);
readln
end.

 

Тема

Циклы

Уровень

Простые задачи