Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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