Задание 6 Параграф 24 ГДЗ Семакин 8 класс (Информатика)

Составьте программу, вычисляющую сумму и произведение цифр натурального числа.

Чтобы найти сумму и произведение цифр натурального числа, нужно последовательно выделять последнюю цифру числа с помощью операции $$n \bmod 10$$, добавлять её к сумме и умножать на неё произведение. Затем последнюю цифру убираем операцией $$n \div 10$$.

Сначала произведение удобно взять равным $$1$$, а сумму — $$0$$.

program task_6;
var
  n, p, s: integer;
begin
  write(‘Введи число:’);
  readln(n);
  p := 1; s := 0;
  while n <> 0 do
  begin
    p := p * (n mod 10);
    s := s + (n mod 10);
    n := n div 10
  end;
  writeln(‘Произведение цифр >> ‘, p, ‘ Сумма цифр >> ‘, s)
end.

Ответ

Программа вычисляет сумму и произведение цифр натурального числа.