Question

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

Answer 1

Procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,s : integer;
  k : integer;
  Chislo : Integer;
  ChisloTmp : Integer;
begin
  k:=0;
  for i := 100 to 999 do
  begin
    s:=0;
    Chislo := i;
    for j := 1 to 3 do
    begin
      ChisloTmp := Trunc(Chislo/10);
      s := s + (Chislo - ChisloTmp*10);
      Chislo := ChisloTmp;
    end;
    if ((s and 1) = 0) then
      Inc(k);
  end;
  Label1.Caption := 'Таких чисел будет ' + inttostr(k);
end;

ОТВЕТ:Таких чисел будет 450 

Answer 2

Программа для вычисления количества трехзначных чисел, у которых сумма цифр является четным числом

Для решения этой задачи, мы можем использовать следующий алгоритм:

1. Инициализируем переменную `count` для подсчета количества трехзначных чисел, удовлетворяющих условию. 2. Используем цикл для перебора всех трехзначных чисел от 100 до 999. 3. Внутри цикла, разбиваем каждое число на отдельные цифры и вычисляем их сумму. 4. Проверяем, является ли сумма цифр четным числом. 5. Если сумма цифр является четным числом, увеличиваем значение переменной `count` на 1. 6. По завершении цикла, выводим значение переменной `count`, которое будет содержать количество трехзначных чисел, удовлетворяющих условию.

Вот пример программы на языке Python, реализующей описанный алгоритм:

count = 0

for num in range(100, 1000):
    digit_sum = sum(int(digit) for digit in str(num))
    
    if digit_sum % 2 == 0:
        count += 1

print("Количество трехзначных чисел, у которых сумма цифр является четным числом:", count)

Эта программа будет перебирать все трехзначные числа от 100 до 999, вычислять сумму их цифр и проверять, является ли эта сумма четным числом. Если является, то значение переменной `count` будет увеличиваться на 1. В конце программы будет выведено количество трехзначных чисел, удовлетворяющих условию.

Примечание: Приведенный код является примером решения задачи и может быть адаптирован под различные языки программирования.