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

Задача

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.

Подробный ответ

Чтобы найти сумму и произведение цифр натурального числа, нужно последовательно выделять последнюю цифру числа с помощью операции $$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.