1204 читали · 1 год назад
Швейцарский нож Блеза Паскаля. Универсальный признак делимости, которым мы пользуемся, даже не зная того
Приветствую Вас, уважаемые Читатели! Все, как правило, знают некоторые признаки делимости чисел: Оказывается в математике существует универсальный признак делимости, и по своей сути он очень похож на п.3. Этот метод предполагает, что нужно составить некоторую комбинацию из цифр (забегая вперед, и остатков от деления) исходного числа, а затем проверить деление. Метод назван в честь его первооткрывателя - Блеза Паскаля, знаменитого в математике не только своим треугольником. Давайте рассмотрим его подробнее...
Найдем сумму цифр числа 5-ю способами в PascalABC.NET
Найдем сумму цифр числа 5-ю способами в PascalABC.NET 1) Через обработку числа 2) Через обработку строки 3) Через рекурсию 4) Через список 5) Через технологию LINQ ## uses school; {сумма циклом строкой} function f1(x: integer): integer; begin var sum := 0; foreach var i in x.ToString do sum += i.ToDigit; Result := sum; end; {сумма циклом while} function f2(x: integer): integer; begin var sum := 0; while x <> 0 do begin sum += x mod 10; x := x div 10; end; Result := sum; end; {Рекурсия} function f3(x:...