Question

Составить программу проверяющую верно ли утверждение что произведение цифр введенного вами четырехзначного целого числа делится на 5 и не делится на вторую цифру числа.На экране должно быть сообщение верно или не верно. Паскаль плиз срочно 10 баллов.

Answer 1

begin

  var n:=ReadInteger('n=');

  var m:=(n div 1000) mod 10;  

  var p:=1;

  while n>0 do

  begin

  p*=n mod 10;

  n:=n div 10

  end;

  if (p mod 5 =0) and(p mod m<>0) then Print('Верно')

  else Print('Неверно')

end.

Answer 2

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

pascalCopy code
program CheckConditions;

var
  num, firstDigit, secondDigit, thirdDigit, fourthDigit, product: Integer;

begin
  Write('Введите четырехзначное число: ');
  ReadLn(num);

  // Разделяем число на отдельные цифры
  fourthDigit := num mod 10;
  num := num div 10;
  thirdDigit := num mod 10;
  num := num div 10;
  secondDigit := num mod 10;
  num := num div 10;
  firstDigit := num;

  // Вычисляем произведение цифр числа
  product := firstDigit * secondDigit * thirdDigit * fourthDigit;

  // Проверяем условия и выводим результат
  if (product mod 5 = 0) and (product mod secondDigit <> 0) then
    WriteLn('Верно')
  else
    WriteLn('Не верно');
end.

Просто скопируйте код выше и вставьте его в свою среду программирования на Паскале, а затем запустите программу. После ввода четырехзначного числа она сообщит, верно ли утверждение или нет, как вы указали.

Удачи с выполнением задания! Если у вас возникнут еще вопросы, не стесняйтесь задавать.