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

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