Паскаль. Написать программу для нахождения произведения четырехзначного числа.

Question

Паскаль.
Написать программу для нахождения произведения четырехзначного числа.

Comments

Произведения чисел четерыхзначного числа?

---

Да, не заметила ошибку)

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!


begin
var n:= ReadInteger('n =');
var agg:= 1;
while (n > 0) do begin
  agg *= n mod 10;
  n := n div 10;
end;
Writeln(agg);
end.

Примеры:
n = 1035
0
``````````````````````
n = 1234
24

Comments

Огромное спасибо, вы мне очень помогли!