Question

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

Answer 1

Ответ:

program happy_numbers;

function sum_digits(num: integer): integer;

var

sum: integer;

begin

sum := 0;

while num > 0 do

begin

sum := sum + num mod 10;

num := num div 10;

end;

sum_digits := sum;

end;

var

i, first_sum, second_sum: integer;

begin

for i := 100000 to 999999 do

begin

first_sum := sum_digits(i div 1000);

second_sum := sum_digits(i mod 1000);

if first_sum = second_sum then

begin

writeln(i);

end;

end;

end.