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

Question

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

помогите пожалуйста!!)))

Comments

Ряд представляет собой все числа из диапазона [10;99] или не все, а сами числа вводятся с клавиатуры?

---

Да [10;99], а второго вопроса я не поняла(

---

Вопрос-то один. Или числа программой порождаются, или вводятся руками. Раз все числа, их можно сформировать программно, это 11,22,33,... 99.

---

Наверное, порождаются программой

Answer 1

Var
  i, s: integer;

begin
  s := 0;
  for i := 1 to 9 do s := s + 11 * i;
  Writeln('Сумма 11+22+33+...+99=', s)
end.

Результат выполнения программы:
Сумма 11+22+33+...+99=495

Comments

Спасибо большое

---

Пожалуйста)