Question

Вывести на экран все трёхзначные числа которые делятся на произведение своих чисел. Pascal

Answer 1

Ответ:

var

 pr, i, temp :integer;

begin

 pr := 1;

 for i := 100 to 999 do begin

   temp := i;

   while ( temp <> 0) do begin

     pr := pr * (temp mod 10);

     temp := temp div 10;

   end;

     if(pr <> 0) then

       if(i mod pr = 0) then

         write(' ',i,' ');

     pr := 1;

 end;

 

end.

Answer 2

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

pascalCopy code
program DivisibleByProduct;

var
  num, product, digit1, digit2, digit3: integer;

begin
  writeln('Three-digit numbers that are divisible by the product of their digits:');
  
  // Loop through all three-digit numbers
  for num := 100 to 999 do
  begin
    // Extract the individual digits
    digit1 := num div 100;     // Hundreds digit
    digit2 := (num div 10) mod 10;   // Tens digit
    digit3 := num mod 10;           // Ones digit
    
    // Calculate the product of the digits
    product := digit1 * digit2 * digit3;
    
    // Check if the number is divisible by the product of its digits
    if product > 0 then  // Make sure the product is not zero
    begin
      if num mod product = 0 then
        writeln(num);
    end;
  end;
end.

Этот код выведет все трехзначные числа, которые делятся на произведение своих цифр. Например, числа 128, 135 и 144 удовлетворяют условию и будут выведены на экран.