Дано двухзначное(трехзначное)число. Напишите программу определения - входит ли в него...

Question

Дано двухзначное(трехзначное)число.
Напишите программу определения
- входит ли в него цифра 5
-входят ли в него цифры 4 и 7

Comments

в информатике полный ноль

---

это 2 разные задачи,если что

Answer 1

Var a,b,c,d:integer;
begin
readln(a);
b:=a div 100;
c:=a mod 100 div 10;
f:=a mod 100 mod 10;
if (b=5) or (c=5) or (f=5) then write('входит')
else write('невходит');
if (b=7) or (b=4) or  (c=7) or (c=4) or (f=7) or (f=4) then write('входит')
else write('невходит');
end.  

Comments

Т.е эту задачу можно разделить на две?Первое If написать в 1 задачу (которая про число 5),а второе if написать во вторую?

---

именно так

---

Спасибо огроменное!!!Очень помогло

---

Можно последний вопрос?Что такое f и почему там два раза мод

---

да в var добавь переменную f а на второй вопрос я отвечу так предположим что мы взяли число 128 128 mod 100 будет 28 а 28 mod 10 будет 8 (mod находит остаток от деления) в итоге мы нашли число едениц

---

спасибо