Question

Определить произведение цифр заданного k-значного числа (1 ≤ k ≤ 4) в паскаль написать программу в Pascal ABC по теме Оператор выбора ​

Answer 1

program ProductOfDigits;

var

   number, k, product: integer;

begin

   writeln('Введите число:');

   readln(number);

   k := 0;

   product := 1;

   

   while number > 0 do begin

       product *= number mod 10;

       number := number div 10;

       k += 1;

   end;

   

   if (k >= 1) and (k <= 4) then writeln('Произведение цифр заданного числа: ', product)

   else writeln('Число должно быть от 1 до 4-х значное.');

end.

Answer 2

Для определения произведения цифр заданного k-значного числа в Pascal ABC можно использовать оператор выбора (case). Вот пример программы, которая решает данную задачу:

program MultiplyDigits;

var
  number, k, digit, product: integer;

begin
  // Вводим число и проверяем его на корректность
  write('Введите ', k, '-значное число: ');
  readln(number);
  
  // Проверяем, что число является k-значным
  if (number < Power(10, k - 1)) or (number >= Power(10, k)) then
  begin
    writeln('Введенное число не является ', k, '-значным.');
    exit;
  end;
  
  // Инициализируем произведение цифр числа
  product := 1;
  
  // Вычисляем произведение цифр числа
  while number > 0 do
  begin
    // Получаем последнюю цифру числа
    digit := number mod 10;
    
    // Умножаем произведение на текущую цифру
    product := product * digit;
    
    // Удаляем последнюю цифру числа
    number := number div 10;
  end;
  
  // Выводим результат
  writeln('Произведение цифр числа: ', product);
end.

В этой программе мы сначала вводим заданное k-значное число и проверяем его на корректность. Затем мы инициализируем переменную `product` значением 1 и используем цикл while для вычисления произведения цифр числа. В каждой итерации цикла мы получаем последнюю цифру числа, умножаем ее на текущее значение `product` и удаляем последнюю цифру числа. В конце программы мы выводим полученное произведение цифр.

Примечание: Помните, что в Pascal ABC индексация начинается с 0, поэтому в программе мы используем `k - 1` при проверке числа на корректность.