Составить программу проверяющую верно ли утверждение что произведение цифр введенного вами четырехзначного целого числа делится на 5 и не делится на вторую цифру числа.на экране должно быть сообщение верно или не верно. паскаль 10 .
177
338
Ответы на вопрос:
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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Anastasia1441718.07.2020 07:49
-
Tatynm14.12.2022 01:32
-
scorp200311.05.2022 10:51
-
mrvipdanchannep0793v30.09.2021 12:38
-
yarikmazai12.10.2022 05:59
-
adilyaarslanov21.12.2020 10:01
-
Sadovnik1130.01.2020 20:06
-
mashoklomakina06.09.2021 14:29
-
Софипо06.12.2020 17:08
-
liza2003833307.09.2020 19:53
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.