Предмет: Информатика,
автор: Геральт007
посчитать количество целых чисел кратных 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
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Қазақ тiлi,
автор: tohaa07
Предмет: Русский язык,
автор: alifutbolist2019kady
Предмет: Физика,
автор: deg08
Предмет: Алгебра,
автор: Настасья9999