Question

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

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

Answer 2

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

Для написания программы нахождения произведения четырехзначного числа в языке Pascal, можно использовать следующий код:

program MultiplyFourDigitNumber;

var
  number, product: integer;
  digit1, digit2, digit3, digit4: integer;

begin
  // Ввод четырехзначного числа
  writeln('Введите четырехзначное число:');
  readln(number);

// Разделение числа на отдельные цифры
  digit1 := number div 1000;
  digit2 := (number div 100) mod 10;
  digit3 := (number div 10) mod 10;
  digit4 := number mod 10;

// Вычисление произведения цифр
  product := digit1 * digit2 * digit3 * digit4;

// Вывод результата
  writeln('Произведение цифр четырехзначного числа:', product);

end.

В данной программе мы сначала запрашиваем у пользователя ввод четырехзначного числа. Затем мы разделяем это число на отдельные цифры, используя операции деления и остатка от деления. После этого мы вычисляем произведение всех цифр и выводим результат.

Пример работы программы:

Введите четырехзначное число:
1234
Произведение цифр четырехзначного числа: 24

Примечание: Пожалуйста, учтите, что язык Pascal имеет различные варианты и компиляторы, поэтому синтаксис может немного отличаться в зависимости от используемой версии. Однако, представленный выше код должен работать в большинстве случаев.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.