Question

Помогите с решением задачи решение на языке аскаль На обработку поступает натуральное число, не превышающее 109. Нужно написать программу, которая выводит на экран произведение цифр числа, которые делятся на 2 и на 4. Если в числе нет таких цифр, требуется на экран вывести «NO».

Answer 1

Ответ:

program z1;

var a,p: longint;

begin

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

readln(a);

p:=1;

repeat

if (a mod 10 mod 2 = 0) and (a mod 10 mod 4 = 0) then p:=p*(a mod 10);

a:=a div 10

until a=0;

if p = 1 then write('NO')

else writeln(p)

end.

Объяснение:

0 учитывается как число делящееся на 2 и на 4, в этом случае произведение равно 0

Answer 2

Конечно, вот пример решения на языке Pascal:

pascalCopy code
program DivideDigits;
var
  num, digit, product: Integer;
  hasDivisibleDigits: Boolean;
begin
  product := 1;
  hasDivisibleDigits := False;
  
  Write('Введите натуральное число: ');
  ReadLn(num);
  
  while num > 0 do
  begin
    digit := num mod 10;
    if (digit mod 2 = 0) and (digit mod 4 = 0) then
    begin
      product := product * digit;
      hasDivisibleDigits := True;
    end;
    num := num div 10;
  end;
  
  if hasDivisibleDigits then
    WriteLn('Произведение цифр, делящихся на 2 и 4: ', product)
  else
    WriteLn('NO');
end.

Программа сначала считывает натуральное число с клавиатуры. Затем она поочередно извлекает цифры числа с помощью операций деления и нахождения остатка от деления на 10. Если текущая цифра одновременно делится на 2 и на 4, то она участвует в вычислении произведения. В конце программа выводит произведение или "NO", если подходящих цифр не найдено.