посчитать количество целых чисел кратных 7 и не оканчивающихся на 7 из промежутка от 1 до 10000 в паскале
Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Print(Range(14,10000,7).Where(x->x mod 10<>7).Count)
end.
Результат выполнения программы:
1285
begin
Print(Range(14,10000,7).Where(x->x mod 10<>7).Count)
end.
Результат выполнения программы:
1285
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад