Question

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

Answer 1

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.