Работа 3.1 Упр.9 ГДЗ Семакин 10 класс (Информатика)

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

Пусть четырёхзначное число хранится в переменной $$n$$. Тогда:

• первая цифра: $$n \div 1000$$;
• последняя цифра: $$n \bmod 10$$;
• вторая и третья цифры: $$\left(n \bmod 1000\right) \div 10$$.

Произведение всех цифр найдём по формуле:

$$p = (n \div 1000)\cdot(n \bmod 10)\cdot\left((n \bmod 1000)\div 10\right)\cdot\left((n \bmod 10)\right)$$

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

var n, p: integer;
begin
  Write(‘Введите натуральное четырехзначное число -> ‘);
  Readln(n);
  p := (n div 1000) * (n mod 10);
  n := (n mod 1000) div 10;
  p := p * (n div 10) * (n mod 10);
  Writeln(‘Произведение цифр числа равно ‘, p);
end.

Ответ

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