Дано двузначное число. Определите, входят ли в него цифры 7 или 1.
(c помощью функций div и mod сначала выделить цифры числа, а потом сравнить каждую из них данными 7 и 1, чтобы составить сложное условие из нескольких простых используют логическую функцию OR, а каждое простое условие заключается в скобки)
В pascal

var  n,d10,d:integer;begin  Write('Введите двухзначное число: '); Readln(n);  d10:=n div 10; d:=n mod 10;  if ((d10=1) or (d=1)) then begin    Write('В число входит цифра 1');    if ((d10=7) or (d=7)) then Writeln(' и цифра 7')    else Writeln  end  else    if ((d10=7) or (d=7)) then Writeln('В число входит цифра 7')    else Writeln('В число не входят цифры 1 и 7')end.Примеры работы программы:Введите двухзначное число: 37В число входит цифра 7Введите двухзначное число: 15В число входит цифра 1Введите двухзначное число: 71В число входит цифра 1 и цифра 7Введите двухзначное число: 28В число не входят цифры 1 и 7