Question

С клавиатуры вводится целое число. Найти произведение его цифр.В паскале,9 класс

Answer 1

Ответ:

var

 i, x, w, k, p: integer;

 s, g: string;

begin

 p := 1;

 readln(s);  

 val(s,x,k);

 while x > 0 do

 begin

   w := x mod 10;

   p := p * w;

   x := x div 10;

 end;  

  writeln(p);

end.

Объяснение:

В данном варианте решения используется перевод строковой величины в целое число типа integer. Потом используются функции div  

и mod.

Answer 2

Привет! Вот пример решения задачи на Паскале, который находит произведение цифр, введенных пользователем:

typescriptCopy code
program multiplication;

var
  number, digit, product: integer;

begin
  // Вводим число
  writeln('Введите целое число:');
  readln(number);

  // Инициализируем произведение единицей
  product := 1;

  // Пока число не равно нулю
  while number <> 0 do
  begin
    // Получаем последнюю цифру числа
    digit := number mod 10;

    // Обновляем произведение
    product := product * digit;

    // Удаляем последнюю цифру из числа
    number := number div 10;
  end;

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

Сначала мы запрашиваем у пользователя ввод целого числа. Затем мы инициализируем переменную product единицей, так как произведение на 1 не меняет значение.

Затем мы запускаем цикл while, который будет выполняться, пока число number не станет равным 0.

В каждой итерации цикла мы находим остаток от деления number на 10, чтобы получить последнюю цифру числа. Затем мы умножаем произведение product на эту цифру и обновляем его значение.

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

Когда цикл заканчивается, мы выводим произведение цифр числа на экран.

Надеюсь, это поможет!