Наприме даны три числа: 10, 15, и 5
10 делиться на 2 и 5
15 делиться 5
и 5 делиться на 5
Значить наибольшим общим делителем у этих чисел будет число 5
1. Формат с фиксированной запятой (фиксированной точкой) предполагает размещение знака числа в самом старшем (левом) бите, а остальные биты отводятся под двоичное представление числа. Сама десятичная точка (запятая) не хранится, она подразумевается. Наибольшее распространение получили два способа представления чисел: когда запятая фиксируется после самого младшего разряда (и тогда мы имеем целое число с нулевой дробной частью), либо когда запятая фиксируется сразу после знакового разряда (и тогда мы имеем десятичную дробь с нулевой целой частью). В процессорах фирмы Intel и программно совместимых с ними, отдельное представление данных с фиксированной точкой отсутствует; в качестве такого представления используются целые числа, что фактически совпадает с первым из описанных способов. При этом в двух байтах под разряды числа отводятся 15 бит. Следовательно, максимальное число может быть равно 2^15-1=32767.
2. Ноль в знаковом разряде означает, что число неотрицательное.
3. В коде ASCII для кодировки символов используется таблица размером 256 символов, так что символ занимает один байт. При этом первая половина таблицы (коды 0-127) фиксирована, а вторая может заполняться символами национальных алфавитов, поэтому существует множество кодовых таблиц ASCII. Например, в системе MS DOS для России используется кодовая таблица CР866, а в Windows - СР1251 В UNICODE для кодирования символа используются два байта, что позволяет иметь 65536 кодов.
Программист - это человек который пишет программу например текстовый редактор или калькулятор.
Пользователь - это человек который пользуется этой программой а именно - печатает текст в текстовом редакторе или же считает математические примеры в калькуляторе который написал программист.
Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.
var
i, n: integer;
k: array[1..10]of integer;
begin
for i := 1 to 10 do
begin
k[i] := random(10)+1;
write(k[i],' ');
if k[i]=i then n:=n+1;
end;
writeln;
writeln('Число искомых элементов: ',n)
<span>end.</span>
