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