Question

1)Все четырехзначные числа, в которых две средние цифры разные. 2)Вывести на экран все нечетные числа из диапазона от A до B, кратные 7(A<=B)

Answer 1

Ответ:

program pr1;

var

 i: Integer;

begin

 for i := 1000 to 9999 do begin

   if (i div 10) mod 10 <> (i div 100) mod 10 then

     Write (i, ' ');

 end;

 ReadLn;

end.

- - - - - - - - - - - - - - - - - - - - -  

program pr2;

var

 a, b, i: Integer;

begin

 Write ('Введите А, В: ');

 ReadLn (a, b);

 for i := a to b do

   if (i mod 2 <> 0) and (i mod 7 = 0) then

     Write (i, ' ');

 ReadLn;

end.

Answer 2

1. Все четырехзначные числа, в которых две средние цифры разные: Мы можем перебрать все четырехзначные числа, начиная с 1000 и заканчивая 9999, и проверять каждое число на соответствие условию задачи:

pythonCopy code
for num in range(1000, 10000):
    mid_digits = str(num)[1:3]  # получаем средние цифры числа
    if mid_digits[0] != mid_digits[1]:  # проверяем, что они разные
        print(num)  # выводим число на экран

2. Вывести на экран все нечетные числа из диапазона от A до B, кратные 7(A<=B): Мы можем перебрать все числа в диапазоне от A до B, проверить каждое число на нечетность и кратность 7 и вывести на экран только те числа, которые соответствуют обоим условиям:

cssCopy code
for num in range(A, B+1):
    if num % 2 == 1 and num % 7 == 0:
        print(num)

Обратите внимание, что мы используем оператор % для проверки кратности 7, так как остаток от деления числа на 7 будет равен нулю только для кратных 7 чисел.