Предмет: Информатика,
автор: 5Masya55
Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, в котором сумма его первых трех цифр равна сумме его последних трех цифр. (Определить функцию для расчета суммы цифр трехзначного числа.)
написать программу на паскаль 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.
Похожие вопросы
Предмет: Математика,
автор: itop26top
Предмет: Биология,
автор: dgarackun
Предмет: История,
автор: denisovamilana35
Предмет: Алгебра,
автор: maksimbubutejsvili78
Предмет: Английский язык,
автор: mavgreta2020