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

Question

Информатика

Данияз

8 октября, 01:24

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

+1

Ответы (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.