!!!!срочно!!!!30БАЛЛОВ!!!!!​

Question

!!!!срочно!!!!30БАЛЛОВ!!!!!​

---

Answer 1

var a,b,c,d,f:integer;

begin

WriteLn('введите трехзначное число');

readln(a);

WriteLn('введите однозначное число');

readln(b);

c:=a mod 10;

d:=a div 10 mod 10;

f:=a div 100 mod 10;

if (b=c) or (b=d) or (b=f) then writeln ('да есть') else writeln ('таких нет')

end.

Comments

надеюсь..т.к это нужно на сегодня и срочно

---

Не надо волноваться

---

И если можешь оценить ответ

---

спасибо большое

---

Ага

---

Обращайся