Question

Дано натуральное число определить А) есть ли в нем цифра 3 Б)есть ли в нем цифры 2 и 5

Answer 1

Var
a, n: longint;
v1, v2, v3: byte;
s: byte;
begin
readln(a);
n := a;
v1 := 0;
v2 := 0;
v3 := 0;
while (n <> 0) do begin
s := n mod 10;
n := n div 10;
if (s = 3) then
v1 := 1;
if (s = 2) then
v2 := 1;
if (s = 5) then
v3 := 1;
end;
if (v1 = 1) then
writeln('В этом числе есть цифра 3')
else
writeln('В этом числе нет цифры 3');
if (v2 = 1) and (v3 = 1) then
writeln('В этом числе есть цифры 2 и 5')
else
writeln('В этом числе нет одновременно цифр 2 и 5');
end.

Answer 2

Для решения этих задач можно воспользоваться математическими операциями, чтобы проверить наличие определенных цифр в данном натуральном числе. Ниже приведены два подхода для определения наличия цифр 3 и 2 и 5 в числе:

А) Проверка наличия цифры 3:

Для определения, есть ли цифра 3 в данном натуральном числе, можно использовать деление числа на 10 и нахождение остатка от деления.

Программный код (псевдокод):

typescriptCopy code
function containsDigit3(number):
    while number > 0:
        digit = number % 10
        if digit == 3:
            return true
        number = number // 10
    return false

Пример использования:

scssCopy code
number = 12345
if containsDigit3(number):
    print("В числе есть цифра 3.")
else:
    print("В числе нет цифры 3.")

Б) Проверка наличия цифр 2 и 5:

Для проверки наличия цифр 2 и 5, также используем деление на 10 и нахождение остатка от деления.

Программный код (псевдокод):

typescriptCopy code
function containsDigit2And5(number):
    hasDigit2 = false
    hasDigit5 = false
    
    while number > 0:
        digit = number % 10
        if digit == 2:
            hasDigit2 = true
        elif digit == 5:
            hasDigit5 = true
        
        if hasDigit2 and hasDigit5:
            return true
        
        number = number // 10
    
    return false

Пример использования:

scssCopy code
number = 25648
if containsDigit2And5(number):
    print("В числе есть цифры 2 и 5.")
else:
    print("В числе нет цифр 2 и 5.")

Примечание: В коде используется псевдокод для объяснения алгоритма. Вы можете преобразовать его в соответствующий язык программирования, который вам удобен.