ПАСКАЛЬ (Pascal) Блез (1623-62), один из самых знаменитых людей в истории человечества, французский математик, физик, религиозный философ и писатель. Сформулировал одну из основных теорем проективной геометрии. Работы по арифметике, теории чисел, алгебре, теории вероятностей. Сконструировал (1641 — 1642) суммирующую машину. Один из основоположников гидростатики, установил ее основной закон, названный его именем. Весьма религиозный человек, придерживался течения янсенизма, с 1655 вел полумонашеский образ жизни. Полемика с иезуитами отразилась в “Письмах к провинциалу” (1656-57) — шедевре французской сатирической прозы. В “Мыслях” (опубликованы в 1669) Паскаль развивает представление о трагичности и хрупкости человека, находящегося между двумя безднами — бесконечностью и ничтожеством (человек — “мыслящий тростник”). Путь постижения тайн бытия и человека от отчаяния видел в христианстве. Сыграл значительную роль в формировании французской классической прозы. В 1642 году французский математик Блез Паскаль «повторил» изобретение В. Шикарда. Его счетное устройство вошло в историю с именем «паскалево колесо», или «паскалина». Это был ящик с многочисленными шестеренками. При работе на «паскалине» складываемые числа вводились путем соответствующего поворота наборных колесиков. Паскаль всю жизнь работал над совершенствованием своего аппарата и построил более 50 различных его вариантов. А принцип, который он использовал в своих первых арифмометрах, стал основой, на которой строилось большинство вычислительных устройств на протяжении следующих трех столетий. Заслуга была достойно отмечена — в 1649 году Паскаль получил королевскую привилегию на изготовление и продажу своей машины. Надёжность в вычислениях и работе - главный критерий устройства, потому что даже до наших дней сохранилось восемь рабочих машин. Популярность и необычность их была такова, что им посвящались стихи...
// PascalABC.NET 3.6.3
uses School;
function Divizors(n: integer): List<integer>;
begin
var L := new List<integer>;
L.Add(1);
L.Add(n);
if n > 3 then
begin
var k := 2;
while (k * k <= n) and (k < 46341) do
begin
if n mod k = 0 then
begin
var t := n div k;
L.Add(k);
if k < t then L.Add(t)
else break
end;
Inc(k)
end;
L.Sort;
end;
Result := L
end;
begin
// 1
if ReadInteger.IsPrime then Println('YES')
else Println('NO');
// 2
ReadInteger.Factorize.First.Println;
// 3
var a := Divizors(ReadInteger);
Print(a.Count, a.Sum)
end.