Question

Дано целое число N(>0). Вводится цифра A (0<=A<=9).Входит ли заданная цифра в число?Если входит то вывести True, если нет-вывести False.Прошу написать через цикл While.

Answer 1

Pascal

var n: integer;

a: 0..9; b: boolean;

begin

write('Введите число N: ');

readln(n);

if n>0 then

begin

write('Введите цифру A: ');

readln(a);

if (a>=0) and (a<=9) then

begin

while (n>1) do

begin

if a=n mod 10 then begin b:=true; break; end else b:=false;

n:=n div 10;

end;

writeln(b);

end else writeln('Введите цифру A от 0 до 9');

end else writeln('Введите другое число, больше 0!');

end.

Answer 2

Код на Python:

pythonCopy code
N = int(input("Введите целое число N: "))
A = int(input("Введите цифру A: "))
found = False  # флаг, показывающий, найдена ли цифра A в числе N

while N > 0:
    digit = N % 10  # получаем последнюю цифру числа
    if digit == A:
        found = True  # если найдена цифра A, устанавливаем флаг в True и выходим из цикла
        break
    N //= 10  # удаляем последнюю цифру из числа N

if found:
    print(True)
else:
    print(False)

Пример работы программы:

yamlCopy code
Введите целое число N: 12345
Введите цифру A: 5
True

yamlCopy code
Введите целое число N: 987654321
Введите цифру A: 0
False