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

Question

Информатика

Люлиана

19 июля, 08:14

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

+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.