Напишите программу поиска суммы положительных нечетных чисел, меньших 100 и некратных 3. ПОЖАЛУЙСТААААААААА
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
Println(Range(1,99).Where(n->(Odd(n) and (n mod 3<>0))).Sum)
end.
Результат выполнения программы:
1633
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
