Сумма и произведение цифр числа | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

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

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

Введем переменные:

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

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

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

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

var 
    n, sum, mult: integer;

begin
    write('Введите число: ');
    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);
    writeln('Произведение цифр = ', mult);
end.

Примеры выполнения программы:

Введите число: 345
Сумма его цифр = 12
Произведение цифр = 60
Введите число: 9085
Сумма его цифр = 22
Произведение цифр = 0