Напишите программу на Pascal, которая рассматривает множество целых чисел

Question

Информатика: Напишите программу на Pascal, которая рассматривает множество целых чисел, принадлежащих числовому отрезку [3721; 7752], и отвечает на вопрос, какие числа удовлетворяют следующим условиям: - сумма

Милашка · Accepted Answer

Конечно, я могу помочь вам с написанием такой программы на языке Pascal. Вот полный код программы:

pascal

program Numbers;



var

   num, sum, digit, binary : integer;

   divisibleBy3, notEndingWithZero : boolean;



begin

   writeln("Числа, которые удовлетворяют условиям:");

   

   for num := 3721 to 7752 do

   begin

      sum := 0;

      divisibleBy3 := false;

      notEndingWithZero := true;

      binary := num;

      

      // проверяем условие "сумма цифр числа кратна 3"

      while num > 0 do

      begin

         digit := num mod 10;

         sum := sum + digit;

         num := num div 10;

      end;

      

      if sum mod 3 = 0 then

         divisibleBy3 := true;

      

      // проверяем условие "двоичная запись числа не заканчивается на 0"

      while binary > 0 do

      begin

         if (binary mod 2) = 0 then

         begin

            notEndingWithZero := false;

            break;

         end;

         binary := binary div 2;

      end;

      

      if (divisibleBy3 = true) and (notEndingWithZero = true) then

         writeln(num);

   end;

   

end.

Данная программа решает задачу, перебирая числа от 3721 до 7752 и проверяет, удовлетворяют ли они указанным условиям. Для каждого числа программа вычисляет сумму его цифр и проверяет, кратна ли эта сумма 3. Также программа проверяет, заканчивается ли двоичная запись числа на 0.

Результатом программы будут числа, которые удовлетворяют обоим условиям. Например, если двоичная запись числа не заканчивается на 0 и сумма его цифр кратна 3, то данное число будет выведено на экран.

Можете скопировать код и запустить его в среде разработки Pascal, чтобы увидеть результат работы программы.

Напишите программу на Pascal, которая рассматривает множество целых чисел, принадлежащих числовому отрезку [3721

Милашка

О проекте

Предметы

Задать вопрос

Привет!