Составьте программу, определяющую, входит ли введенная вами цифра в десятичную запись введенного вами трехзначного числа

Question

Информатика

Бекбулсын

20 октября, 09:12

Составьте программу, определяющую, входит ли введенная вами цифра в десятичную запись введенного вами трехзначного числа

+4

Ответы (1)

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

Домулло · Answer 1

begin

var (n, x) : = ReadInteger2 () ;

while n > 0 do

begin

if n mod 10 = x then break

else n : = n div 10

end;

Print (n > 0? 'входит' : 'не входит')

end.