Составить программу проверяющую верно ли утверждение - вопрос №9396454 от chucklplplplpl 07.05.2023 09:10

Question

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

chucklplplplpl · Answer

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....