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

Question

Информатика

Диодора

1 января, 05:47

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

+2

Ответы (1)

Знаете ответ на вопрос?

Алексаха · Answer 1

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

Входит