Question

Вывести щестизначных "счастливых" чисел (сумма первых трех цифр равна сумме трех последних), кратных семи в 10 колонок.

Answer 1

Uses crt;
var
  chislo,i,happy,ten: integer;
  a: array [1..6] of integer;
begin
  happy := 100002; {наименьшее число,кратное 7}
  ten:=1; {счётчик колонок}
  while happy<999999 do
  begin
  {делим число happy на цифры с помощью временной переменной chislo}
  {и сохраняем эти цифры в массиве а}
    chislo := happy;
    for  i:= 1 to 6 do
    begin
      a[i] := chislo mod 10;
      chislo:= chislo div 10;
    end;
   {проверяем,счастливое ли число}
    if (a[1] + a[2] + a[3] = a[4] + a[5] + a[6]) then
      begin
       {если счастливое,то выводим}
        write(happy,' ');
        ten:=ten+1;
        if ten>10 then
          {если уже напечатано 10 чисел, то переходим в новую строку}
          begin
            ten:=1;
            writeln();
          end;
      end;
    happy:=happy+7;
  end;
end.

Answer 2

var
  b: integer;
  a: array [0..5] of byte;

begin
  for i: integer := 100000 to 999999 do
  begin
    b := i;
    for d: integer := 0 to 5 do
    begin
      a[d] := b mod 10;
      b := b div 10;
    end;
    if (a[0] + a[1] + a[2] = a[3] + a[4] + a[5]) then
      writeln(i);
  end;
end.

Answer 3

Для решения данной задачи можно использовать язык программирования Python. Вот пример кода, который выводит щестизначные "счастливые" числа, сумма первых трех цифр которых равна сумме трех последних и которые кратны семи:

pythonCopy code
count = 0  # счетчик для подсчета количества найденных чисел
num = 100100  # начальное число (минимальное шестизначное число)

while count < 10:  # ищем 10 чисел
    # Проверяем условие счастливого числа и кратности семи
    if sum(int(digit) for digit in str(num)[:3]) == sum(int(digit) for digit in str(num)[-3:]) and num % 7 == 0:
        print(num)
        count += 1
    num += 1  # переходим к следующему числу

Этот код будет выводить щестизначные "счастливые" числа, кратные семи, по 10 чисел в каждой строке. Вы можете запустить его в среде разработки Python или воспользоваться онлайн-интерпретатором Python для выполнения кода.