Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [244143; 367821], числа, имеющие ровно 5 различных делителей. выведите эти делители для каждого найденного числа в порядке возрастания.

Рассмотрим обычное десятичное число, например, число 5623. Интуитивно понятно, что означают все эти цифры: (5 * 1000) + (6 * 100) + (2 * 10) + (3 * 1). Так как в десятичной системе счисления всего 10 цифр, то каждое значение умножается на множитель 10 в степени n. Выражение, приведенное выше, можно записать следующим образом: (5 * 103) + (6 * 102) + (2 * 101) + (3 * 1).

Двоичные числа работают по аналогичной схеме, за исключением того, что в системе всего 2 числа (0 и 1) и множитель не 10, а 2. Так же как запятые (или пробелы) используются для улучшения читабельности больших десятичных чисел (например, 1, 427, 435), двоичные числа пишутся группами — в каждой по 4 цифры (например, 1101 0101).

Объяснение:

var a: integer;

function f(a: integer): integer;

var max,x: integer;

begin

max: =a mod 10;

while a> 0 do begin

x: =a mod 10;

a: =a div 10;

if x> max then max: =x;

end;

f: =max;

end; {f}

function
f1(a: integer): integer;

var min,x: integer;

begin

min: =a mod 10;

while a> 0 do begin

x: =a mod 10;

a: =a div 10;

if x< min then min: =x;

end;

f1: =min; end; {f1}

begin

write('введите число-');

readln(a);

writeln('максимальная цифра в числе: ',f(a));

writeln('минимальная цифра в числе: ',f1(a));

end.

пример:

введите число-31842

максимальная цифра в числе: 8

минимальная цифра в числе: 1