yestarday23
05.02.2022 03:30

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
lexanyreev
09.10.2020 03:36

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота