Question

Дано четырехзначное число. Определить, входят ли в него цифры 3, 6 или 9. Напишите код на языке Delphi.

Answer 1

program CheckDigits;

var

number: Integer;

digit: Integer;

containsDigits: Boolean;

begin

Write('Введите четырехзначное число: ');

ReadLn(number);

containsDigits := False;

while (number > 0) do

begin

digit := number mod 10;

if (digit = 3) or (digit = 6) or (digit = 9) then

begin

containsDigits := True;

Break;

end;

number := number div 10;

end;

if containsDigits then

WriteLn('Число содержит цифры 3, 6 или 9')

else

WriteLn('Число не содержит цифры 3, 6 или 9');

ReadLn;

Если не затруднит и ответ будет верный, то поставьте в "Лучший ответ"! Премного благодарен!

Answer 2

Конечно, вот пример кода на Delphi, который определит, входят ли цифры 3, 6 или 9 в четырехзначное число:

delphiCopy code
program CheckDigits;

var
  number, digit: Integer;
  contains369: Boolean;

begin
  Write('Введите четырехзначное число: ');
  ReadLn(number);
  
  contains369 := False;
  
  // Перебираем каждую цифру числа
  while number > 0 do
  begin
    digit := number mod 10;
    if (digit = 3) or (digit = 6) or (digit = 9) then
    begin
      contains369 := True;
      Break; // Если нашли 3, 6 или 9, можно выйти из цикла
    end;
    number := number div 10;
  end;
  
  if contains369 then
    WriteLn('Число содержит цифры 3, 6 или 9.')
  else
    WriteLn('Число не содержит цифры 3, 6 или 9.');
end.

Вы можете запустить этот код в среде Delphi, введя четырехзначное число, и он сообщит вам, содержит ли оно цифры 3, 6 или 9.