Посчитать количество целых чисел кратных 7 и не оканчивающихся на 7 из промежутка от 1 до 10000 в паскале

Question

Информатика: Посчитать количество целых чисел кратных 7 и не оканчивающихся на 7 из промежутка от 1 до 10000 в паскале

vladosik1885 · Answer

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016begin  Print(Range(14,10000,7).Where(x- x mod 10 7).Count)end.Результат выполнения программы:1285...