Question

Найти сумму целых положительных чисел, больших 20,меньших 120 и кратных 9 и не заканчивающих на 5

Answer 1

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
  Writeln(Range(27,119,9).Where(x->x mod 10<>5).Sum)
end.

Результат
747

Answer 2

тогда нужно как раньше

Answer 3

в старой версий

Answer 4

Задача решена. Программа рабочая, результат работы приведен. Если она написана не так, как Вы хотели бы - это полностью Ваша вина, потому что требования к языку и прочее надо в задании указывать. Вы этого не сделали и дали мне право писать так, как мне удобно, а не как Вам надо.

Answer 5

Посему вопрос закрыт.

Answer 6

незнаю