Язык Паскаль с нуля | #4 Основные действия над числами в pascal.
4075 смотрели · 4 года назад
Швейцарский нож Блеза Паскаля. Универсальный признак делимости, которым мы пользуемся, даже не зная того
Приветствую Вас, уважаемые Читатели! Все, как правило, знают некоторые признаки делимости чисел: Оказывается в математике существует универсальный признак делимости, и по своей сути он очень похож на п.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:...