Найти среднее арифметическое таких чисел в диапазоне [a;b], у которых последняя цифра равна 7 — Delphi(Делфи)

Вводятся числа a и b.

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, i: integer;
  sum, count, res: extended;
begin
  a := StrToInt(Edit1.Text); // Ввод данных!
  b := StrToInt(Edit2.Text); // Ввод данных!
  sum := 0;
  count := 0;
  res := 0;
  for i := a to b do // Перебираем все числа от а до b!
    if (i mod 10) = 7
    // В случае если остаток от деления на 10 - 7 (т.е. последняя цифра - 7)...
    then
    begin
      sum := sum + i; // ...то число добавляем к сумме.
      count := count + 1; // И увеличиваем количество посчитанных чисел!
    end;
  if count;
    0 then res := sum / count;
  Label1.Caption := FloatToStr(res); // Ответ готов!
end;

Leave a Comment