Question

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

Answer 1

Ответ:

var N,digit,maxDigit: longint;

begin

readln(N);

maxDigit := N mod 10;

while N > 0 do

begin

digit := N mod 10;

if digit mod 3 = 0 then

if digit > maxDigit then

maxDigit := digit;

N := N div 10;

end;

if maxDigit = 0 then

writeln('NO')

else

writeln(maxDigit)

end.

Объяснение:

вроде так

Answer 2

Конечно, я могу помочь вам с написанием программы на языке Паскаль для решения данной задачи. Вот пример решения:

pascalCopy code
program MultiplyDigits;
var
  number, digit, product: Integer;
  hasDivisibleDigits: Boolean;
begin
  hasDivisibleDigits := False;
  product := 1;

  Write('Введите число: ');
  ReadLn(number);

  while number > 0 do
  begin
    digit := number mod 10;
    if (digit mod 2 = 0) and (digit mod 4 = 0) then
    begin
      product := product * digit;
      hasDivisibleDigits := True;
    end;
    number := number div 10;
  end;

  if hasDivisibleDigits then
    WriteLn('Произведение цифр, делящихся на 2 и на 4: ', product)
  else
    WriteLn('NO');
end.

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

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