Question

27) (А. Куканова) Рассматривается множество целых чисел, принадлежащих числовому отрезку (3712; 8432), которые удовлетворяют следующим условиям: - запись в двоичной и четверичной системах счисления заканчивается одинаковой цифрой; - кратны 13, 14 или 15. Найдите количество таких чисел и минимальное из них. написать программу на паскаль

Answer 1

Ответ:

program kol;

var k, n, min:integer;

begin

  k:=0; min:=8433;

  for n:= 3712 to 8432 do

    if (n mod 2= n mod 4) and (n mod 13=0) and (n mod 14=0) and (n mod 15=0) then

      begin

        if min>n then

        min:=n;

        k:=k+1;

      end;

      Writeln (k,' ',min);

End.

Answer 2

Конечно, вот программа на языке Паскаль, которая находит количество целых чисел, удовлетворяющих указанным условиям, и минимальное из них:

pascalCopy code
program IntegerSet;

const
  LowerBound = 3713;  // Начальное значение
  UpperBound = 8431;  // Конечное значение

var
  count, minNumber: Integer;

function HasSameLastDigitInBinaryAndQuaternary(n: Integer): Boolean;
var
  binaryStr, quaternaryStr: string;
begin
  // Конвертируем число в двоичную и четверичную системы счисления
  binaryStr := '';
  quaternaryStr := '';
  
  while n > 0 do
  begin
    binaryStr := Chr(Ord('0') + (n mod 2)) + binaryStr;
    quaternaryStr := Chr(Ord('0') + (n mod 4)) + quaternaryStr;
    n := n div 10;
  end;

  // Проверяем, заканчиваются ли строки одинаковой цифрой
  HasSameLastDigitInBinaryAndQuaternary := binaryStr[length(binaryStr)] = quaternaryStr[length(quaternaryStr)];
end;

function IsMultiple(n, divisor: Integer): Boolean;
begin
  IsMultiple := (n mod divisor = 0);
end;

begin
  count := 0;
  minNumber := UpperBound;

  for var i := LowerBound to UpperBound do
  begin
    if HasSameLastDigitInBinaryAndQuaternary(i) and (IsMultiple(i, 13) or IsMultiple(i, 14) or IsMultiple(i, 15)) then
    begin
      count := count + 1;
      if i < minNumber then
        minNumber := i;
    end;
  end;

  writeln('Количество чисел: ', count);
  writeln('Минимальное число: ', minNumber);
end.

Программа начинает с определения начального и конечного значений (LowerBound и UpperBound). Затем она проходит через каждое число в заданном диапазоне и проверяет, удовлетворяют ли они условиям. Если число соответствует условиям, оно увеличивает счетчик и, если оно меньше текущего минимального числа, обновляет минимальное число. В конце программа выводит количество чисел и минимальное число.

Пожалуйста, убедитесь, что ваша среда выполнения поддерживает Pascal и может компилировать и запускать программы на этом языке.