Question

Задание в программе Lazarus(язык turbo delphi). Дано четырехзначное число. Определить входит ли в него цифры 2 или 7. Пожалуйста, исправьте ошибку или решите заново) program project1; var X: integer; begin read(X); if (X < 1000) or (X > 9999) then begin writeln('need 4 digits'); exit end; while (X <> 0) do begin if (X mod 10 ) = 2 or (X div 10 mod 10) = 2 or (X div 100) = 2 or (X div 1000) = 2 or (X mod 10 ) = 7 or (X div 10 mod 10) = 7 or (X div 100) = 7 or (X div 1000) = 7 then writeln('yes') else writeln('no'); end; end.

Answer 1

Program project1;

var
    X: integer;

begin
    read(X);
    if (X < 1000) or (X > 9999) then
    begin
        writeln('need 4 digits');
        exit;
    end;
   
    while (X > 0) do
    begin
        if (X mod 10 = 2) or (X mod 10 = 7) then begin
            writeln('yes');
            exit;
        end;
        x := x div 10;
    end;
   
    writeln('no');
end.

Answer 2

Ваш код содержит несколько ошибок. Вот исправленный вариант:

pascalCopy code
program project1;
var
  X: integer;
  hasTwoOrSeven: boolean;
begin
  read(X);
  
  // Проверяем, является ли число четырехзначным
  if (X < 1000) or (X > 9999) then
  begin
    writeln('Need 4 digits');
    exit;
  end;
  
  // Инициализируем флаг hasTwoOrSeven значением false
  hasTwoOrSeven := false;
  
  // Проверяем каждую цифру числа на наличие 2 или 7
  while (X <> 0) and (not hasTwoOrSeven) do
  begin
    if (X mod 10 = 2) or (X mod 10 = 7) then
    begin
      hasTwoOrSeven := true;
    end;
    X := X div 10; // Убираем последнюю цифру числа
  end;
  
  // Выводим результат
  if hasTwoOrSeven then
    writeln('Yes')
  else
    writeln('No');
end.

В этом исправленном коде проверяется каждая цифра четырехзначного числа на наличие 2 или 7. Если хотя бы одна из цифр является 2 или 7, программа выводит "Yes". Если ни одна из цифр не является 2 или 7, программа выводит "No".