Uses school;

Можно ли решить задачу с применением функций библиотеки school? Если да, то как?

Рассматривается множество целых принадлежащих отрезку [6674;11113]. Необходимо найти числа, которые кратны числу 13 и при этом не кратны 3, 25, 44, 51, 59, 100. В ответе укажите количество таких чисел и максимальное число.

uses School;

begin
  var s := (6674..11113).Where(t → t.Divs(13) and not t.DivsAny(3,25,44,51,59,100));
  Println(s.Count, s.Last)
end.

Только не думайте, что Вы всех перехитрили и Вам тут и дальше будут решать школьные задачки. Подобные решения есть на стримах у А. Богданова - там и ищите. На сегодняшний день Alex Danov - наиболее продвинутый стример, использующий PascalАВС.NЕТ в решении задач КЕГЭ-2021.

 Институт математики, механики и компьютерных наук ЮФУ, 2005–2018
Администрация форума: В.Н. Брагилевский, С.С. Михалкович, А.М. Пеленицын
Yandex.Metrica