Дано целое положительное трехзначное число n. Составить программу, которая определяет входит ли в него цифра 8.

Var n:integer;

Begin

Write ('Введите трёхзначное число: ') ; ReadLn (n) ;

n:=Abs (n) ;

if (n div 100 = 8) or ((n div 10) mod 10 = 8) or (n mod 10 = 8) then WriteLn ('Входит')

else WriteLn ('Не входит')

End.

Пример работы программы:

Введите трёхзначное число: 85

Входит