Функция Random() и поразрядное вычисление

Функция Random()

Random(n) возвращает нам случаное число от нуля до n-1, к примеру:

uses crt; //Подключаем модуль "crt", который создаст окно вывода на экран var a:integer; BEGIN a:=random(10); // Выбирает случайное от 0 до 10, не включая 10 writeln (a); END.

Программа

Поразрядное вычисление

Поразрядное вычисление помогает нам получить из числа единицы сотни десятки и пр. Для этого используються две команды: mod и div.

Mod - вычисляет остаток от целочисленного деления (Например: 17 mod 3 будет равно 2).

Div- делит число нацело (без остатка).

Для того чтобы получить, например, из трехзначное числа единицы, десятки, сотни, то (Берем число 321):

321 mod 10 равно 1.

321 div 10 mod 10 равно 2.

321 div 100 равно 3.

К примеру:

uses crt; //Подключаем модуль "crt", который создаст окно вывода на экран var a,ed,des,sot:integer; BEGIN readln(a); ed:=a mod 10; // Нашли единицы. des:=a div 10 mod 10; // Нашли десятки. sot:=a div 100; // Нашли сотни. END. Также с помощью команд mod и div можно перевернуть число, еще раз берем трехзначное число: uses crt; var a,ed,des,sot,ed2,des2,per:integer; BEGIN readln(a); ed:=a mod 10; // Нашли единицы. des:=a div 10 mod 10; // Нашли десятки. sot:=a div 100; // Нашли сотни. sot2:=ed*100; des2:=des*10; per:=sot2+des2+sot; // Получили перевернутое число. END. Программа