Напишите программу, которая вводит трёхзначное число и десятичную цифру. Определить, входит ли эта цифра в десятичную запись введённого числа.

Question

Информатика

Афанасия

19 апреля, 15:41

Напишите программу, которая вводит трёхзначное число и десятичную цифру. Определить, входит ли эта цифра в десятичную запись введённого числа.

+5

Ответы (1)

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

Алексаша · Answer 1

Var n, m:integer;

begin

write ('Число = ') ; readln (n) ;

write ('Цифра = ') ; readln (m) ;

if (n div 100 = m) or (n div 10 mod 10 = m) or (n mod 10 = m)

then writeln ('Цифра есть')

else writeln ('Цифры нет') ;

end.

Пример:

Число = 519

Цифра = 5

Цифра есть