Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, в котором сумма его первых трех цифр равна сумме его последних трех цифр. (Определить функцию для расчета суммы цифр трехзначного числа.) написать программу на паскаль abc

Ответ:

function SumOfDigits(n: integer): integer;

var

sum: integer;

begin

sum := 0;

while n > 0 do

begin

sum := sum + n mod 10;

n := n div 10;

end;

SumOfDigits := sum;

end;

var

num, first, last: integer;

begin

for num := 100000 to 999999 do

begin

first := num div 1000; {первые три цифры}

last := num mod 1000; {последние три цифры}

if SumOfDigits(first) = SumOfDigits(last) then

writeln(num);

end;

end.