Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, в котором сумма его первых трех цифр равна сумме его последних трех цифр. (Определить функцию для расчета суммы цифр трехзначного числа.)
написать программу на паскаль abc
Ответы
Ответ дал:
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.
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
1 год назад
7 лет назад
7 лет назад