Составьте программу вычисления количества трёхзначных чисел у которых сумма цифр является чётным числом.
Answers & Comments
gonan
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;
Answers & Comments
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