Question

Введите четырехзначное число и проверmnt есть ли в нем цифра 7

Answer 1

Var
  n,x:integer;
  s:string;
begin
s:='Нет';
readln(n);
while n>0 do
  begin
  x:=n mod 10;
  if x=7 then s:='Да';
  n:=n div 10;
  end;
writeln(s);
end.

Answer 2

Конечно, я могу помочь проверить, есть ли цифра 7 в четырехзначном числе.

Введите четырехзначное число: например, 1234

Если вы вводите число на Python, то можете использовать следующий код:

luaCopy code
number = input("Введите четырехзначное число: ")
if "7" in number:
    print("Цифра 7 есть в этом числе.")
else:
    print("Цифры 7 нет в этом числе.")

Если вы используете обычный калькулятор или пишете код на другом языке программирования, то можете решить эту задачу, разбив число на отдельные цифры и проверить, есть ли среди них цифра 7. Например:

makefileCopy code
number = 1234
digit1 = number // 1000   # первая цифра числа (в данном случае 1)
digit2 = (number // 100) % 10   # вторая цифра числа (в данном случае 2)
digit3 = (number // 10) % 10   # третья цифра числа (в данном случае 3)
digit4 = number % 10   # четвертая цифра числа (в данном случае 4)
if digit1 == 7 or digit2 == 7 or digit3 == 7 or digit4 == 7:
    print("Цифра 7 есть в этом числе.")
else:
    print("Цифры 7 нет в этом числе.")

Надеюсь, это помогло вам проверить наличие цифры 7 в вашем четырехзначном числе.