Дано двузначное число. Определите, входят ли в него цифры 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