Question

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

Answer 1

Program zadanie;
var i,j,t, r:integer;
begin
writeln('Высчитываем числа.....');
for i:=1 to 9 do
    for j:=1 to 9 do
        for t:=1 to 9 do
        begin
        r:=i+j+t;
        if (r mod 2=0) then
        begin
        r:=i*100+j*10+t;
        writeln(r);
        end;
        end;
end.

Если прога должна сама вывести все существующие числа, удовлетворяющие условию

Answer 2

Program to Calculate the Number of Three-Digit Numbers with Even Digit Sum

To calculate the number of three-digit numbers where the sum of the digits is an even number, we can use the following program:

count = 0
for i in range(100, 1000):
    digit_sum = sum(int(digit) for digit in str(i))
    if digit_sum % 2 == 0:
        count += 1
print("The number of three-digit numbers with even digit sum is:", count)

This program iterates through all three-digit numbers (from 100 to 999), calculates the sum of their digits, and increments the count if the sum is even. Finally, it prints the total count of such numbers.

Explanation: - We initialize a variable `count` to keep track of the number of three-digit numbers with an even digit sum. - We use a for loop to iterate through all three-digit numbers from 100 to 999. - For each number, we convert it to a string and then sum its digits using a list comprehension and the `sum` function. - If the sum of the digits is even (i.e., the remainder when divided by 2 is 0), we increment the `count` variable. - After iterating through all numbers, the program prints the total count of three-digit numbers with an even digit sum.

This program efficiently calculates the required result by iterating through the range of three-digit numbers and checking the sum of their digits.