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

0 голосов
99 просмотров

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


Информатика (56 баллов) | 99 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  Print(Range(14,10000,7).Where(x->x mod 10<>7).Count)
end.

Результат выполнения программы:
1285

(142k баллов)