Question

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

Пожалуйста, решите, буду очень благодарна!

ПАСКАЛЬ, БЕЗ ВСЯКИХ СЛОЖНОСТЕЙ, НА ШКОЛЬНОМ УРОВНЕ 10 КЛАССА:)

Answer 1

var i:longint;

function sum(c:integer):integer

begin

    sum := c mod 10 + c div 10 mod 100 + c div 100;

end

Begin

    for i := 1 to 999999 do

        if (sum(i div 1000) = sum(i mod 1000) ) then

             writeln(i);

End