Составьте программу вычисления количества трёхзначных чисел у которых сумма цифр является чётным числом.
Составьте программу вычисления количества трёхзначных чисел у которых сумма цифр является чётным числом.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы