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

282

395

Посмотреть ответы 2

Ответы на вопрос:

Сонечко1001

Информатика

4,7(45 оценок)

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